Skip Menu |
 

This queue is for tickets about the Data-ICal CPAN distribution.

Report information
The Basics
Id: 27204
Status: rejected
Priority: 0/
Queue: Data-ICal

People
Owner: Nobody in particular
Requestors: foskey [...] optushome.com.au
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



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>
Download (untitled) / with headers
text/plain 1.1k
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 );
Subject: Fwd: [rt.cpan.org #27204] Patch to sample ical2html.pl
Date: Sun, 20 May 2007 16:41:31 -0400
To: bug-Data-ICal [...] rt.cpan.org
From: Jesse Vincent <jesse [...] fsck.com>
Download PGP.sig
application/pgp-signature 186b

Message body not shown because it is not plain text.

Download (untitled) / with headers
text/plain 2.5k
Heya. Any chance you can generate some "bad" data for me? Begin forwarded message: Show quoted text
> From: "Tatsuhiko Miyagawa" <miyagawa@gmail.com> > Date: May 20, 2007 4:39:09 PM EDT > To: "Jesse Vincent" <jesse@fsck.com> > Subject: Re: [rt.cpan.org #27204] Patch to sample ical2html.pl > > I coded the script to work with YAPC::Asia schedule and not something > else more complex (e.g.: the event that goes across 0:00am midnight or > repeated). So I don't know. > > If this guy can provide the test data that the script fails, it'd make > more sense to apply this patch. > > On 5/20/07, Jesse Vincent <jesse@fsck.com> wrote:
>> Feelings about this patch? Should I apply? >> >> Begin forwarded message: >> >> From: "foskey@optushome.com.au via RT" <bug-Data-ICal@rt.cpan.org> >> Date: May 20, 2007 8:25:30 AM EDT >> To: undisclosed-recipients:; >> Subject: [rt.cpan.org #27204] Patch to sample ical2html.pl >> Reply-To: bug-Data-ICal@rt.cpan.org >> >> >> Sun May 20 08:25:09 2007: Request 27204 was acted upon. >> Transaction: Ticket created by foskey@optushome.com.au >> Queue: Data-ICal >> Subject: Patch to sample ical2html.pl >> Broken in: (no value) >> Severity: (no value) >> Owner: Nobody >> Requestors: foskey@optushome.com.au >> Status: new >> Ticket <URL: >> http://rt.cpan.org/Ticket/Display.html?id=27204 > >> >> >> 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}++; >> --- >> if( defined( $loc ) ) { >> push >> @{$dates{$event->{__dtstart}->ymd}{$loc}}, $event; >> $where{$loc}++; >> } >> 52c54,55 >> < for my $loc ( sort { $locmap->{$a} <=> $locmap->{$b} } keys % >> where) { >> --- >> #for my $loc (sort { $locmap->{$a} <=> $locmap->{$b} } keys % >> where) { >> for my $loc ( keys %where) { >> 68c71 >> < for my $loc ( sort { $locmap->{$a} <=> $locmap->{$b} } >> keys % >> where ) { >> --- >> 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; >> --- >> $output .= qq(<span class="title"><a >> href="$url">$title</a></span>) if( defined $url ); >> $output .= qq(<br /><span >> class="author">$author</span>) if defined( $author ); >> >> >> >> >> >>
> > > -- > Tatsuhiko Miyagawa >
Download (untitled) / with headers
text/html 13.1k

Message body is not shown because it is too large.



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.