[hns-users:00509] Re: sorted by Category (title.cgi)

[Kenji Suzuki <kenji@po.ganseki.ne.jp>]

> kenji> の package HNS::Hnf::Command::NEW; 以下あたり
> kenji> からです。
> 
>   と教えていただいたので、次のような変更をして見たのですが、%cat 
> に [カタログ名] のように [ ] が付いてしまっていて、そう簡単ではな
> さそうで、まだ実現出来ていません。引続き手がかりを求めています。
>   %cat に [ ] が付かないようにして、必要なところには [ ] を
>   付けてまわる
> しかないでしょうか

すいません。Command::NEW では無理ですね。
CAT は例外的なコマンドでした。


cat の中身は、TreeBuilder.pm
http://www.h14m.org/cgi-bin/cvsweb/hns-perl/public_html/diary/lib/HNS/Hnf/TreeBuilder.pm?rev=1.28
の

sub get_category ($)
{
    my $arg_content = shift;
    my $cat;
    # CAT arg1 arg2 arg3..
    for my $c (split(/ /, $arg_content)){
        my $img;
        if ($img = $HNS::CategoryList::DB{$c}){
            my $src = "$HNS::CategoryList::CatDir/$img";
            my ($width, $height) = imgsize($src);
            if ($width ne undef) {
                $cat .= qq(<img src="$src" width="$width" height="$height" alt="[$c]">);
            }
            else {
                my $templ = new HNS::Template;
                $cat .= $templ->Expand($HNS::Hnf::Command::CAT::template,
                                   {var=>$c});
                $cat .= "[$c]";
            }
        } elsif ($c) {
            my $templ = new HNS::Template;
            $cat .= $templ->Expand($HNS::Hnf::Command::CAT::template,
                                   {var=>$c});
            $cat .= "[$c]";
            
        }
    }
    return $cat;
}

で作成されていますので、ここをいじれば ok です。

[CAT] およびカテゴリ画像から title.cgi へリンクした方が
確かに便利そうですね。hns-current をそう変更しましょうか?


// Kenji Suzuki

   Linux -- Where you really can go tomorrow