Changeset 341 for cybozu2ical/trunk

Timestamp:

11/06/06 10:18:11 (2 years ago)

Author:

ogawa

Message:

A little more fixes.

Files:

• cybozu2ical/trunk/cybozu2ical (modified) (3 diffs)

cybozu2ical/trunk/cybozu2ical

@@ -18 +18 @@
 use Getopt::Long;
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 my %opt = (conf => 'config.yaml');
@@ -81 +81 @@
         } else {
             $dtstart = dt2ical($dt0);
-            $dtend = ($fields[6] =~ /^:$/) ?
-                $dt0->add(minutes => 10) : dt2ical($dt1);
+            $dtend = dt2ical(($fields[6] =~ /^:$/) ?
+                             $dt0->add(minutes => 10) : $dt1);
         }
         $vevent->add_properties(
@@ -93 +93 @@
     my $created = dt2ical(DateTime->from_epoch(epoch => $epoch));
 
+    my $summary = $fields[11] || '';
+    $summary .= ': ' if $summary;
+    $summary .= $fields[12] || '';
     $vevent->add_properties(
-        summary => decode_utf8($fields[12] || $fields[11] || ''),
-        description => decode_utf8($fields[13] || $fields[12] || $fields[11] || ''),
+        summary => decode_utf8($summary),
+        description => decode_utf8($fields[13] || $summary),
         dtstamp => $dtstamp,
         created => $created