bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Properly extract value.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-11-29 16:31:45 -05:00
parent 1f55b78af5
commit 792465c4d7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
calendar-export.plx
View file

@ -468,7 +468,8 @@ END_ICAL
my $uidList = $entry->property('UID');
DieLog("This entry has multiple UIDs: @{$uidList}") unless @$uidList == 1;
my $uid = $uidList->[0];
my $uid = $uidList->[0]->value;
my $outputFile = File::Spec->catpath("", $icsOutputDir, "${uid}.ics");
open(SINGLE_EVENT_ICAL, ">", $outputFile) or
DieLog("Unable to overwrite $outputFile: $!", $LOCK_CLEANUP_CODE);