Skip Menu |
 

This queue is for tickets about the Net-Google-Calendar CPAN distribution.

Report information
The Basics
Id: 61689
Status: open
Priority: 0/
Queue: Net-Google-Calendar

People
Owner: Nobody in particular
Requestors: l.butler [...] ed.ac.uk
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.0
Fixed in: (no value)



Subject: get_events does not work with start-min/max
Download (untitled) / with headers
text/plain 841b
Previously, in v 0.94, the code block below worked to get calendar events between $dtstart and $dtend. In v 1.00, this no longer works. my $dtstart = DateTime->new( ... ); my $dtend = DateTime->new( ... ); my @events = $calendar->get_events( start-min => $dtstart, start-max => $dtend ); In the attached file, you find a working example that pulls all the events from a calendar and prints them, then tries to get a specific event using start-min/max and fails. You can verify that the event exists during the indicated time interval. Installed modules: DateTime v. 53 Net::Google::Calendar v 1.0 perl -v: This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi (with 46 registered patches, see perl -V for more detail) uname -a: (debian squeeze) Linux erdelyi 2.6.32-5-686 #1 SMP Sat Sep 18 02:14:45 UTC 2010 i686 GNU/Linux
Subject: gc-r.pl
Download gc-r.pl
text/x-perl 1.3k
#!/usr/bin/perl -s use warnings; use strict; use Net::Google::Calendar; use Net::Google::Calendar::Entry; use DateTime; our ($username, $password); our $TIME_ZONE=DateTime::TimeZone->new(name => 'Europe/London'); my $url = 'http://www.google.com/calendar/feeds/2jdc9fhmvqge27p3soi6av3crg%40group.calendar.google.com/public/basic'; my $cal = Net::Google::Calendar->new( url => $url ); my @cal_events = $cal->get_events(); foreach my $event (@cal_events) { print $event->title,"\n"; } my $seminar = { year => '2010', month => '10', day => '10', hour => '16', minute => '00', endhour => '17', endminute => '00', }; my $entry = Net::Google::Calendar::Entry->new(); my $dtstart = DateTime->new( year => $seminar->{'year'}, month => $seminar->{'month'}, day => $seminar->{'day'}, hour => $seminar->{'hour'}, minute => $seminar->{'minute'}, time_zone => $TIME_ZONE, ); my $dtend = DateTime->new( year => $seminar->{'year'}, month => $seminar->{'month'}, day => $seminar->{'day'}, hour => $seminar->{'endhour'}, minute => $seminar->{'endminute'}, time_zone => $TIME_ZONE, ); my @events = $cal->get_events( 'start-min' => $dtstart, 'start-max' => $dtend, ); for (@events) { print "$_,\n"; } exit 0;
From: tk [...] giga.or.at
I see this problem as well.


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.