記事No.288 へのコメントです。
exit.cgi 67行目から118行目
sub menu {
から
$html .= <<_HTML_;
までを、
sub menu {
&head;
my ($tmp_catid, $tmp_subid, $catdata, $subdata);
my (%tmp_list, %tmp_sublist) = ();
my ($cat_max) = &LoadCategory;
$html .= "<img src=\"$imgdir/$menu_image\"><br>\n";
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";
foreach $tmp_catid (keys %category) {
$catdata = &GetCategory ($tmp_catid);
$tmp_list{$catdata->{'group'}."_".$catdata->{'catname'}."_".$catid} = $tmp_catid;
}
foreach (sort keys %tmp_list) {
$catdata = &GetCategory ($tmp_list{$_});
$temp = $in->{'catid'};
$temp .= ":$catdata->{'catid'}";
my ($scat_max) = &LoadSubCategory;
foreach $tmp_subid (keys %subcategory) {
$subdata = &GetSubCategory ($tmp_subid);
$tmp_sublist{$subdata->{'group'}."_".$subdata->{'subname'}."_".$tmp_subid} = $tmp_subid;
}
foreach (sort keys %tmp_sublist) {
$subdata = &GetSubCategory ($tmp_sublist{$_});
if ($subdata->{'catid'} eq $catdata->{'catid'}) {
$html .= "<a href=\"$script?mode=vew&subid=$subdata->{'subid'}\" target=\"vew\" class=\"menu\"><img src=\"$imgdir/$dot_image\" border=0> $subdata->{'subname'}</a><br>\n";
}
}
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";
}
$html .= <<_HTML_;
に変更してください。
カテゴリ名は表示されないですが、複数のカテゴリを使うと線で分けられるので、これはこれで使いやすいかもしれませんね。
[
この記事にコメントを返信する ] [
原文引用 ]