Changeset 1771

Show
Ignore:
Timestamp:
10/16/06 22:25:36
Author:
miyagawa
Message:

Publish::iCal: handle TZID in 00:00:00 as well. Thanks to mizzy

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/Publish/iCal.pm

    r1765 r1771  
    4343        my $tz = $date->time_zone; 
    4444 
    45         my $dtstart = $date->format('ICal'); 
    46         my $dtend   = $date->format('ICal'); 
     45        my $dt = [ $date->format('ICal'), {} ]; 
     46        $dt->[0] =~ s/^TZID=(.*?):// 
     47            and $dt->[1]->{TZID} = $1; 
    4748 
    4849        if ($date->hms eq '00:00:00') { 
    49             $dtstart = [ $dtstart, { VALUE => 'DATE' } ]; 
    50             $dtend   = [ $dtend,   { VALUE => 'DATE' } ]; 
    51         } else { 
    52             $dtstart =~ s/^TZID=(.*?):// 
    53                 and $dtstart = [ $dtstart, { TZID => $1 } ]; 
    54             $dtend   =~ s/^TZID=(.*?):// 
    55                 and $dtend   = [ $dtend, { TZID => $1 } ]; 
     50            $dt->[1]->{VALUE} = 'DATE'; 
    5651        } 
    5752 
    …… 
    5954            summary     => $entry->title, 
    6055            description => $entry->summary ? $entry->summary->plaintext : '', 
    61             dtstart     => $dtstart, 
    62             dtend       => $dtend, 
     56            dtstart     => $dt, 
     57            dtend       => $dt, 
    6358        ); 
    6459        $ical->add_entry($event);