Changeset 521 for cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar/Event.pm

Timestamp:

09/05/08 19:50:24 (4 months ago)

Author:

ogawa

Message:

Add is_private and is_shared methods to Calendar::Entry class.

Files:

• cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar/Event.pm (modified) (3 diffs)

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

@@ -19 +19 @@
 
 __PACKAGE__->mk_accessors(
-    qw( id start end summary description created time_zone modified is_full_day comment )
+    qw( id start end summary description created time_zone modified is_shared is_private is_full_day comment )
 );
 
@@ -52 +52 @@
     $this->summary($summary);
     $this->description( $param{memo} || $summary );
+
+    $this->is_shared(1)  if $param{shared};
+    $this->is_private(1) if $param{private};
     1;
 }
@@ -63 +66 @@
     return
       unless $ymd
-          && ( $ymd =~ m!^da\.(\d+)\.(\d+)\.(\d+)$!
-              ||    $ymd =~ m!^(\d+)/(\d+)/(\d+)$! );
+          && (   $ymd =~ m!^da\.(\d+)\.(\d+)\.(\d+)$!
+              || $ymd =~ m!^(\d+)/(\d+)/(\d+)$! );
     @args{qw(year month day)} = ( $1, $2, $3 );