TOGAWA Satoshi
toga****@puyo*****
2003年 11月 22日 (土) 19:49:02 JST
とがわです.
「最近のn日の日記を表示」モードで,「OK」が書いてないhnfファイルがあった場合,
表示されないのに,日数カウントには含まれるので,nより少ない日数の日記しか
表示されないバグを修正しました.
Index: Collection.pm
===================================================================
RCS file: /cvsroot/h14m/hns-perl/public_html/diary/lib/HNS/Collection.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- Collection.pm 20 Apr 2001 14:09:41 -0000 1.18
+++ Collection.pm 22 Nov 2003 08:58:35 -0000 1.19
@@ -1,5 +1,5 @@
package HNS::Collection;
-# $Id: Collection.pm,v 1.18 2001/04/20 14:09:41 kenji Exp $
+# $Id: Collection.pm,v 1.19 2003/11/22 08:58:35 togawa Exp $
###############################################################
=head1 NAME
@@ -206,18 +206,21 @@
my $diary = $self->diarys->{$ymd};
#print "$diary->year $year ";
next unless $diary->year == $year;
- last if (++$cnt>$max); # read done
#print "read<br>";
$diary->Read;
+ if ($diary->read_done == 1) { #"OK" is found
+ # last modified
+ if ($diary->last_modified > $self->last_modified){
+ $self->last_modified($diary->last_modified);
+ }
+ # end of reading
+ last if (++$cnt>=$max);
+ }
# set date
unless ($self->year){
$self->year($diary->year);
$self->month($diary->month);
$self->day($diary->day);
- }
- # last modified
- if ($diary->last_modified > $self->last_modified){
- $self->last_modified($diary->last_modified);
}
}
last if ++$y_cnt>1; # read done of this year and last year
--
toga****@puyo***** 戸川聡士