From efba5a323bbdf7cfc3b490d7e92cccde5b0b6d62 Mon Sep 17 00:00:00 2001 From: chris1284 Date: Wed, 24 Feb 2016 17:51:42 +0000 Subject: [PATCH] 57_CALVIEW.pm: -changed the way to get uids from calendar git-svn-id: https://svn.fhem.de/fhem/trunk@10929 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/57_CALVIEW.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/fhem/FHEM/57_CALVIEW.pm b/fhem/FHEM/57_CALVIEW.pm index 9bc81c68a..8d0ec3819 100644 --- a/fhem/FHEM/57_CALVIEW.pm +++ b/fhem/FHEM/57_CALVIEW.pm @@ -204,21 +204,21 @@ sub getsummery($) my @modes = split(/,/,$modi); foreach my $calendername (@calendernamen){ #foreach my $mode (@modes){ - my $all = CallFn($calendername, "GetFn", $defs{$calendername},(" ","full", "next")); + my $all = CallFn($calendername, "GetFn", $defs{$calendername},(" ","uid", "next")); my @termine=split(/\n/,$all); - foreach my $termin (@termine){ - my @uid=split(/\s+/,$termin); + foreach my $uid (@termine){ + #my @uid=split(/\s+/,$termin); #für jedes event die einzelnen infos holen - my $tmpstarts = CallFn($calendername, "GetFn", $defs{$calendername},(" ","start", $uid[0])); + my $tmpstarts = CallFn($calendername, "GetFn", $defs{$calendername},(" ","start", $uid)); my @starts = split(/\n/,$tmpstarts); #my $tmptexts = CallFn($calendername, "GetFn", $defs{$calendername},(" ","text", $uid[0])); #my @texts = split(/\n/,$tmptexts); - my $tmpends = CallFn($calendername, "GetFn", $defs{$calendername},(" ","end", $uid[0])); + my $tmpends = CallFn($calendername, "GetFn", $defs{$calendername},(" ","end", $uid)); my @ends = split(/\n/,$tmpends); - my $tmpsummarys = CallFn($calendername, "GetFn", $defs{$calendername},(" ","summary", $uid[0])); + my $tmpsummarys = CallFn($calendername, "GetFn", $defs{$calendername},(" ","summary", $uid)); my @summarys = split(/\n/,$tmpsummarys); - my $tmplocations = CallFn($calendername, "GetFn", $defs{$calendername},(" ","location", $uid[0])); + my $tmplocations = CallFn($calendername, "GetFn", $defs{$calendername},(" ","location", $uid)); my @locations = split(/\n/,$tmplocations); for(my $i = 1; $i <= (scalar(@starts)); $i++) {