[hns-dev:38] one sectionへのアクセスのときに<TITLE>にNEWを表示する

Back to archive index

Masafumi Otsune info****@otsun*****
2005年 4月 24日 (日) 09:17:06 JST


otsuneです。

題名のようなpatchを作成してみました。

--- index.cgi.in.orig   Sun Apr 24 08:57:09 2005
+++ index.cgi.in        Sun Apr 24 09:04:19 2005
@@ -182,6 +182,14 @@
     if ($y < 1970){
         $col->ReadRecent($HNS::System::DefaultMax);
     } else {
+      use HNS::Tools::HeadLine;
+      my $sectitle = new HNS::Tools::HeadLine;
+     $sectitle->getFileListByPattern($sectitle->diaryDir($y),"$y$m$d");
+      $sectitle->readHnf("d$y$m$d.hnf", 'side');
+      my @new = @{$sectitle->title};
+      my $stitle = @new[$s];
+      $stitle =~ s/^.*>(.*)<\/a>$/$1/g;
+      $HNS::System::Title .= ' ' . $stitle;
         $col->Read($y, $m, $d);
     }
 }



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