[hns-dev:#] bug fix: "OK"がないHNFファイル

Back to archive index

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***** 戸川聡士



H14m-hns-dev メーリングリストの案内
Back to archive index