Changeset 515 for cybozu2ical/trunk/lib/WWW

Timestamp:

08/30/08 00:58:52 (4 months ago)

Author:

ogawa

Message:

Fix a bug: stop adding trailing double quote to each line
Update version number.

Location:

cybozu2ical/trunk/lib/WWW/CybozuOffice6

Files:

• Calendar.pm (modified) (1 diff)
• CalendarDriver/ApiCalendar.pm (modified) (1 diff)
• CalendarDriver/SyncCalendar.pm (modified) (1 diff)

cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar.pm

@@ -12 +12 @@
 use WWW::CybozuOffice6::Calendar::RecurrentEvent;
 
-our $VERSION = '0.30';
+our $VERSION = '0.31';
 
 sub new {

cybozu2ical/trunk/lib/WWW/CybozuOffice6/CalendarDriver/ApiCalendar.pm

@@ -64 +64 @@
 
         my $content = $res->content;
+        $content =~ s/\r?\n[^\r\n]*$//;    # remove last line
         from_to( $content, $cal->{input_encoding} || 'shiftjis', 'utf8' );
-        my $line = ( split( /\r?\n/, $content ) )[0];
 
-        # Cybozu bug: may produce broken CSV lines
-        $line .= '"' if $line !~ /\"$/;
-        push @lines, $line;
+        push @lines, $content;
     }
 

cybozu2ical/trunk/lib/WWW/CybozuOffice6/CalendarDriver/SyncCalendar.pm

@@ -33 +33 @@
     from_to( $content, $cal->{input_encoding} || 'shiftjis', 'utf8' );
     my @lines = grep /^\d+,ts\.\d+,/, split( /\r?\n/, $content );
+
     $cal->{response} = \@lines;
-
     scalar @lines ? \@lines : undef;
 }