Changeset 370

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

UIDを追加したつもり。

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • cybozu2ical/trunk/cybozu2ical

    r364 r370  
    6969    } 
    7070 
     71    # set uid (recommended to be the identical syntax to RFC822) 
     72    $args{uid} = $args{created} . '-' . $item->id . '@' . URI->new($cfg->{cybozu_url})->host; 
     73 
    7174    $vevent->add_properties(%args); 
    7275    $vcalendar->add_entry($vevent); 

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

    r368 r370  
    1919} 
    2020 
     21sub id                  { shift->_accessor('id',                @_) } 
    2122sub url                 { shift->_accessor('url',               @_) } 
    2223sub username            { shift->_accessor('username',          @_) } 
    …… 
    5051        my @fields = $csv->fields; 
    5152        next if $#fields < 13; # num. of fields 
     53        $fields[1] =~ s/^ts\.//; # remove rubbish 
    5254 
    5355        # Cybozu Calendar CSV Format 
    …… 
    6971 
    7072        my %param; 
    71         @param{qw(created start_time end_time freq freq_value abbrev summary description)} = @fields[1,5..8,11..13]; 
    72         $param{created} =~ s/^ts\.//; 
     73        @param{qw(id created start_time end_time freq freq_value abbrev summary description)} = @fields[0,1,5..8,11..13]; 
    7374        $param{time_zone} = $this->{time_zone} || 'Asia/Tokyo'; 
    7475