Mercurial > hg > Applications > Calcon

changeset 22:8bb1a007ed89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove bad calendar write
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 22 Oct 2013 16:39:13 +0900
parents cc4f95f742f7
children 2748cd7ccfca
files Calcon.pm
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }