changeset 13:3ac4a1a56ca3

*** empty log message ***
author kono
date Thu, 23 Mar 2006 22:59:13 +0900
parents b55c65241693
children 6ee8b90426e7
files Calcon.pm
diffstat 1 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/Calcon.pm	Thu Mar 23 21:56:08 2006 +0900
+++ b/Calcon.pm	Thu Mar 23 22:59:13 2006 +0900
@@ -3390,6 +3390,11 @@
 #	$data =  $record{'office-yomi'};
 #	$self->print "x-custom2:$data\n" if($data);
 #    }
+    if (defined $record{'group'} ) {
+	$record{'group'} =~ s/[\n\r]*//g;
+	$self->print( "X-GN;CHARSET=SHIFT_JIS:".$record{'group'}."\n");
+    }
+
     $self->print("END:VCARD\n");
     $self->print("\n");
 }
@@ -3418,6 +3423,7 @@
     my $dtstart = "\nDTSTART:".$self->date($record{'date'});
     my $dtend = '';
     my $dtstamp = '';
+    my $group = '';
 
     if (! defined( $record{'end-date'}) || $record{'end-date'} == $record{'date'} ) {
 	# $dtend = "\nDURATION:PT2H";  this is useless for iCal
@@ -3442,6 +3448,9 @@
 	$summary =~ s/[\n\r]/ /mg; 
 	$summary =~ s/\s*$//;  
     }
+    # if (defined($record{'group'})) {
+# 	$group = "\nX-GN;CHARSET=SHIFT_JIS:".$record{'group'};
+ #    }
 
     if ($description eq $summary) {
 	$description = "";
@@ -3579,8 +3588,7 @@
 	    if ($stime) {
 		my $date = $record->{'date'};
 		if ($date) {
-		    if ($record->{'memo'}) {
-
+                    if ($record->{'memo'}) {
 			$self->date_normalize($keys,$record);
 			$out->record($keys,$record);