FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +00:00
Code Issues Releases Wiki Activity

57_CALVIEW.pm: -fixed empty endate handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14014 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
chris1284 2017-04-17 15:02:28 +00:00
parent 9122427dbd
commit 6ca16f40db
1 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
fhem/FHEM/57_CALVIEW.pm
View File

@ -98,18 +98,34 @@ sub CALVIEW_GetUpdate($){
$year += 1900; $mon += 1; $year += 1900; $mon += 1;
my $datenext = sprintf('%02d.%02d.%04d', $mday, $mon, $year); my $datenext = sprintf('%02d.%02d.%04d', $mday, $mon, $year);
my @termineNew; my @termineNew;
my @tempstart;
my @bts;
my @tempend;
my $isostarttime;
my $isoendtime;
my ($D,$M,$Y);
my ($eD,$eM,$eY);
foreach my $item (@termine ){ foreach my $item (@termine ){
my @tempstart=split(/\s+/,$item->[0]); #start datum und zeit behandeln
my @tempend=split(/\s+/,$item->[2]); if( defined($item->[0])&& length($item->[0]) > 0) {
my ($D,$M,$Y)=split(/\./,$tempstart[0]); @tempstart=split(/\s+/,$item->[0]);
my ($eD,$eM,$eY)=split(/\./,$tempend[0]); ($D,$M,$Y)=split(/\./,$tempstart[0]);
my @bts=str2time($M."/".$D."/".$Y." ".$tempstart[1]); @bts=str2time($M."/".$D."/".$Y." ".$tempstart[1]);
$isostarttime = $Y."-".$M."-".$D."T".$tempstart[1];
}
else {$item->[0] = "no startdate"}
#end datum und zeit behandeln
if( defined($item->[2])&& length($item->[2]) > 0) {
@tempend=split(/\s+/,$item->[2]);
($eD,$eM,$eY)=split(/\./,$tempend[0]);
$isoendtime = $eY."-".$eM."-".$eD."T".$tempend[1];
}
else {$item->[2] = "no enddate"}
#replace the "\," with "," #replace the "\," with ","
if(length($item->[1]) > 0){ $item->[1] =~ s/\\,/,/g; } if(length($item->[1]) > 0){ $item->[1] =~ s/\\,/,/g; }
if( defined($item->[4]) && length($item->[4]) > 0){ $item->[4] =~ s/\\,/,/g; } if( defined($item->[4]) && length($item->[4]) > 0){ $item->[4] =~ s/\\,/,/g; }
if( defined($item->[5]) && length($item->[5]) > 0){ $item->[5] =~ s/\\,/,/g; } if( defined($item->[5]) && length($item->[5]) > 0){ $item->[5] =~ s/\\,/,/g; }
my $isostarttime = $Y."-".$M."-".$D."T".$tempstart[1]; #berechnen verbleibender tage bis zum termin
my $isoendtime = $eY."-".$eM."-".$eD."T".$tempend[1];
my $eventDate = fhemTimeLocal(0,0,0,$D,$M-1,$Y-1900); my $eventDate = fhemTimeLocal(0,0,0,$D,$M-1,$Y-1900);
my $daysleft = floor(($eventDate - time) / 60 / 60 / 24 + 1); my $daysleft = floor(($eventDate - time) / 60 / 60 / 24 + 1);
my $daysleft_long; my $daysleft_long;