Changeset 371

Show
Ignore:
Timestamp:
06/08/07 00:41:03 (1 year ago)
Author:
ogawa
Message:

Fix a bug & roll back changeset 368.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r370 r371  
    1919} 
    2020 
    21 sub id                  { shift->_accessor('id',                @_) } 
    2221sub url                 { shift->_accessor('url',               @_) } 
    2322sub username            { shift->_accessor('username',          @_) } 
    …… 
    109108    my $self = { 
    110109        is_full_day => 0, 
    111 #     modified => DateTime->now, 
     110      modified => DateTime->now, 
    112111    }; 
    113112    bless $self, $class; 
    …… 
    116115} 
    117116 
     117sub id          { shift->_accessor('id',                @_) } 
    118118sub start       { shift->_accessor('start',             @_) } 
    119119sub end         { shift->_accessor('end',               @_) } 
    …… 
    134134    my($this, %param) = @_; 
    135135 
     136    $this->{id} = $param{id} || '0'; 
    136137    $this->{time_zone} = $param{time_zone} || 'Asia/Tokyo'; 
    137138 
    …… 
    153154 
    154155    $this->{created} = DateTime->from_epoch(epoch => $param{created} || 0); 
    155     $this->{modified} = DateTime->from_epoch(epoch => $param{created} || 0); 
    156156 
    157157    my $summary = ($param{abbrev} ? $param{abbrev} . ': ' : '') . $param{summary};