Changeset 521

Show
Ignore:
Timestamp:
09/05/08 19:50:24 (3 months ago)
Author:
ogawa
Message:

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

Location:
cybozu2ical/trunk
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • cybozu2ical/trunk/cybozu2ical

    r520 r521  
    193193      if $opt{url}; 
    194194 
     195    # $args{class}  = $item->is_private ? 'PRIVATE'     : 'PUBLIC'; 
     196    # $args{transp} = $item->is_private ? 'TRANSPARENT' : 'OPAQUE'; 
     197 
    195198    $args{comment} = decode_utf8( $item->comment ) 
    196199      if $opt{debug} && $item->comment; 

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

    r520 r521  
    1919 
    2020__PACKAGE__->mk_accessors( 
    21     qw( id start end summary description created time_zone modified is_full_day comment ) 
     21    qw( id start end summary description created time_zone modified is_shared is_private is_full_day comment ) 
    2222); 
    2323 
    … …  
    5252    $this->summary($summary); 
    5353    $this->description( $param{memo} || $summary ); 
     54 
     55    $this->is_shared(1)  if $param{shared}; 
     56    $this->is_private(1) if $param{private}; 
    5457    1; 
    5558} 
    … …  
    6366    return 
    6467      unless $ymd 
    65           && ( $ymd =~ m!^da\.(\d+)\.(\d+)\.(\d+)$! 
    66               ||    $ymd =~ m!^(\d+)/(\d+)/(\d+)$! ); 
     68          && (   $ymd =~ m!^da\.(\d+)\.(\d+)\.(\d+)$! 
     69              || $ymd =~ m!^(\d+)/(\d+)/(\d+)$! ); 
    6770    @args{qw(year month day)} = ( $1, $2, $3 ); 
    6871 

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

    r518 r521  
    106106        my %param; 
    107107        @param{ 
    108             qw(id timestamp type day set_date end_date set_time end_time event detail memo) 
    109           } = @fields[ 0, 1, 4, 5, 8 .. 11, 12 .. 14 ]; 
     108            qw(id timestamp shared type day private banner set_date end_date set_time end_time event detail memo) 
     109          } = @fields[ 0 .. 2, 4 .. 14 ]; 
    110110 
    111111        $param{time_zone} = $cal->{time_zone} || 'Asia/Tokyo'; 

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

    r518 r521  
    6969 
    7070        my %param; 
    71         @param{ qw(id timestamp set_time end_time type day event detail memo) 
    72           } = @fields[ 0, 1, 5 .. 8, 11 .. 13 ]; 
     71        @param{ 
     72            qw(id timestamp set_time end_time type day private banner event detail memo) 
     73          } = @fields[ 0, 1, 5 .. 13 ]; 
    7374 
    7475        $param{time_zone} = $cal->{time_zone} || 'Asia/Tokyo';