有沢@nijino.com です。
>>>>> In [hns-users : No.00524]
>>>>> taxen@mail.goo.ne.jp wrote:
> そこで、改めて探してみたのですが、
> http://www.nijino.com/ari/diary/?03170012
> こんな感じのページなのですが。
すでに解決しているようですが、一応。
私の theme.ph では以下のようにしてます。
package HNS::Hnf::Command::NEW;
$Template = qq(
<h3 class="new"><a name="%year%month%day%new"
href="?%year%month%abc&to=%year%month%day%new#%year%month%day%new">★</a>
%content</h3>
<div class="section">);
>>>>> In [hns-users : No.00527]
>>>>> YAMAGUCHI Takanori <yamaya@mtj.biglobe.ne.jp> wrote:
> ところで、そのスクリプトでは NEW の引数を省略すると「その1」とか
> 「その2」とかいう見出しを自動的に補う、なんてカスタマイズが
> かんたんにできますけど、hns では perl でゴリゴリ処理を書けば
> なんとか同じことはできるのかな?
theme で method を再定義すればできますかね。
NEW や LNEW くらいはまだしも、RLNEW ともなるとすでにある処理も
入れなきゃならないと思うので、面倒でしょうが。
package HNS::Hnf::Command::NEW;
sub AsHTML ($$$)
{
my ($self, $start, $params) = @_;
$self->{arg_content} = $self->{arg_content} || "その$params->{new}";
return $self->SUPER::AsHTML($start, $params);
}
# 再定義を考えると何でもありになってしまいそうだが(^^;
--
Akihiro Arisawa <ari@mbf.sphere.ne.jp>
http://www.nijino.com/ari/