| Subject: | Patch to sample ical2html.pl |
| Date: | Sun, 20 May 2007 22:24:54 +1000 |
| To: | bug-Data-ICal [...] rt.cpan.org |
| From: | Ken Foskey <foskey [...] optushome.com.au> |
I had a number of errors dumping my evolution calendar. The sort is
generating an error that I did not debug fully, can only assuming
missing data in my calendar.
31,32c31,34
< push @{$dates{$event->{__dtstart}->ymd}{$loc}}, $event;
< $where{$loc}++;
---
Show quoted text
> if( defined( $loc ) ) {
> push @{$dates{$event->{__dtstart}->ymd}{$loc}}, $event;
> $where{$loc}++;
> }
52c54,55
< for my $loc ( sort { $locmap->{$a} <=> $locmap->{$b} } keys %
where) {
---
Show quoted text> #for my $loc (sort { $locmap->{$a} <=> $locmap->{$b} } keys %
where) {
Show quoted text> for my $loc ( keys %where) {
68c71
< for my $loc ( sort { $locmap->{$a} <=> $locmap->{$b} } keys %
where ) {
---
Show quoted text> for my $loc ( keys %where ) {
82,83c85,86
< $output .= qq(<span class="title"><a
href="$url">$title</a></span>);
< $output .= qq(<br /><span
class="author">$author</span>) if $author;
---
Show quoted text> $output .= qq(<span class="title"><a
href="$url">$title</a></span>) if( defined $url );
Show quoted text> $output .= qq(<br /><span
class="author">$author</span>) if defined( $author );