changeset 14:6ee8b90426e7 n702iD

*** empty log message ***
author kono
date Fri, 24 Mar 2006 00:53:50 +0900
parents 3ac4a1a56ca3
children d0692e1c031f
files Calcon.pm README
diffstat 2 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/Calcon.pm	Thu Mar 23 22:59:13 2006 +0900
+++ b/Calcon.pm	Fri Mar 24 00:53:50 2006 +0900
@@ -3391,7 +3391,15 @@
 #	$self->print "x-custom2:$data\n" if($data);
 #    }
     if (defined $record{'group'} ) {
+	my $gno;
 	$record{'group'} =~ s/[\n\r]*//g;
+	if (! defined($self->{'-group'}->{$record{'group'}})) {
+	    # group 00 は特別らしい。
+	    $gno = $self->{-group}->{$record{'group'}}= ++$self->{'-groupno'}; 
+	} else {
+	    $gno = $self->{'-group'}->{$record{'group'}}; 
+	}
+	$self->print( "X-GNO:$gno\n");
 	$self->print( "X-GN;CHARSET=SHIFT_JIS:".$record{'group'}."\n");
     }
 
--- a/README	Thu Mar 23 22:59:13 2006 +0900
+++ b/README	Fri Mar 24 00:53:50 2006 +0900
@@ -44,6 +44,8 @@
            Mac OS X のiCal, Address Book, Applescript 経由です
   'Entourage'	=> 'Calcon::Entourage_write',
            Mac OS X のEntourage X, Applescript 経由です
+    'N702'      => 'Calcon::Vcard_N702iD_write',
+	   Docomo 携帯電話のVcard 
     'File' 	=> 'Calcon::File_write',
            独自のフラットファイルフォーマット (EUC)