Kenji
kenji****@club*****
2005年 5月 1日 (日) 10:52:07 JST
Kenji です。 以下を hns-current に commit しました。 On Mon, 25 Apr 2005 22:56:56 +0900 Kenji <kenji****@club*****> wrote: > =================================================================== > RCS file: /cvsroot/h14m/hns-perl/public_html/diary/index.cgi.in,v > retrieving revision 1.40 > diff -u -r1.40 index.cgi.in > --- index.cgi.in 25 Apr 2005 12:23:47 -0000 1.40 > +++ index.cgi.in 25 Apr 2005 13:54:03 -0000 > @@ -187,7 +187,12 @@ > $sectitle->getFileListByPattern($sectitle->diaryDir($y),"$y$m$d"); > $sectitle->readHnf("d$y$m$d.hnf", 'side'); > my @new = @{$sectitle->title}; > - my $stitle = @new[$s]; > + my $count = $s; > + my $stitle = @new[$count]; > + while ($stitle =~ /<!-- GRP:.* -->/) { > + $count++; > + $stitle = @new[$count]; > + } > $stitle =~ s/^.*>(.*)<\/a>$/$1/g; > $HNS::System::Title .= ' ' . $stitle; > $col->Read($y, $m, $d); // Kenji