# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1382427553 -32400
# Node ID 8bb1a007ed8920088715f54ad89caa0ad94b1666
# Parent  cc4f95f742f7609c5091059335dbb7bd7bdcc29f
remove bad calendar write

diff -r cc4f95f742f7 -r 8bb1a007ed89 Calcon.pm
--- a/Calcon.pm	Fri Oct 11 17:33:37 2013 +0900
+++ b/Calcon.pm	Tue Oct 22 16:39:13 2013 +0900
@@ -721,12 +721,14 @@
 	    print nkf('-w',"$memo\n");
 	}
     } else {
+	return if ($self->{'-future-only'});  # means calendar only
+	return if ($self->{'-tomorrow'});
 	foreach my $key (@keys) {
 	    my $value = $items{$key};
 	    if (ref $value) {
 		$value = $value->value();
 	    }
-	    print nkf('-j',"$key: $value\n") if (defined($value) && $value ne '');
+	    print nkf('-w',"$key: $value\n") if (defined($value) && $value ne '');
 	}
 	print "\n";
     }
@@ -4305,12 +4307,12 @@
     my $out = $self->{'-output'};
     my $keys = [];
     push(@$keys,keys %{$record});
-    if (defined $record->{'date'} && defined $record->{'end-date'} ) {
-        if ($record->{'end-date'}->date_after($record->{'date'} )) {
-            print STDERR "end-date before start ".$record->{'date'}->date()," end on ",$record->{'end-date'}->date(),"\n";
-            undef $record->{'end-date'};
-        }
-    }
+#    if (defined $record->{'date'} && defined $record->{'end-date'} ) {
+#        if ($record->{'end-date'}->date_after($record->{'date'} )) {
+#            print STDERR "end-date before start ".$record->{'date'}->date()," end on ",$record->{'end-date'}->date(),"\n";
+#            undef $record->{'end-date'};
+#        }
+#    }
     $out->record($keys,$record);
 }