From kenji ＠ club.h14m.org  Sun May  1 10:52:07 2005
From: kenji ＠ club.h14m.org (Kenji)
Date: Sun, 1 May 2005 10:52:07 +0900
Subject: [hns-dev:44] =?iso-2022-jp?b?UmU6IG9uZSBzZWN0aW9uGyRCJFgkTiUiGyhC?=
 =?iso-2022-jp?b?GyRCJS8lOyU5JE4kSCQtJEsbKEI8VElUTEU+GyRCJEsbKEJORVc=?=
 =?iso-2022-jp?b?GyRCJHJJPTwoJDkkaxsoQg==?=
In-Reply-To: <20050425225656.380b8f3a.kenji@club.h14m.org>
References: <426AE582.3090607@otsune.com>
	<20050425212523.1ccd038e.kenji@club.h14m.org>
	<426CE777.1080007@otsune.com>
	<20050425225656.380b8f3a.kenji@club.h14m.org>
Message-ID: <20050501105207.24824cba.kenji@club.h14m.org>

Kenji です。


以下を hns-current に commit しました。

On Mon, 25 Apr 2005 22:56:56 +0900
Kenji <kenji ＠ club.h14m.org> 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