Commit b6f7304d authored by Adrien Dorsaz's avatar Adrien Dorsaz

Fix bug while find array.

parent bf1314d3
......@@ -251,9 +251,10 @@ main:
# Tie::iCal has structure :
# $events{'a_unique_uid'} = ['VEVENT', {'NAME1' => 'VALUE1'}]
# where VEVENT is the type of the iCal compenent (see rfc RFC 2445)
my @component = $ical->toHash($indexInFile);
debug ("Prepare the appointment recid=$recid");
my @component = @{$ical->toHash($indexInFile)};
debug ("Prepare the $component[0] ical object recid=$recid");
if(@component[0] eq 'VEVENT'){
my %event = $component[1];
# Description
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment