記事No.363 へのコメントです。

>実は、No.338・れい様への返答にありました記事番号表示を当方でも導入しようとしたのですが、すべてのカテゴリを同時展開すると左フレームLINK MENUの表示がおかしいようです。

すみません。バグってました。
カテゴリごとの変数の初期化をし忘れていました。
以前の修正に$tmp_html=""; を追加する必要があります。

バグを直した修正をまとめておきます。

登録件数表示機能をつけるには、exit.cgiの68行目以降を以下のように変更してください。

sub menu {

&head;

my ($tmp_catid, $tmp_subid, $catdata, $subdata, $linkdata, $cat_linkcnt, $sub_linkcnt, $tmp_html);
my (%tmp_list, %tmp_sublist) = ();
my ($cat_max) = &LoadCategory;
my ($scat_max) = &LoadSubCategory;
&LoadLink;
$html .= "<img src=\"$imgdir/$menu_image\"><br>\n";
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";

@tmp_cat = split (/\:/, $in->{'catid'});
$tmp=0;

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{$_});
$tmp_html="";
$tmp_count=0;
$cat_linkcnt=0;
foreach $tmp (@tmp_cat) {
if ($tmp eq $catdata->{'catid'}) {
$temp = $in->{'catid'};
$temp =~ s/:$tmp:/:/g;
$temp =~ s/^$tmp://;
$temp =~ s/:$tmp$//;
$tmp_count++;

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 $tmp) {
$sub_linkcnt = 0;
foreach $tmp_linkid (%link) {
$linkdata = &GetLink($tmp_linkid);
@tmp_sub = split (":", $linkdata->{'subid'});
foreach $tmp (@tmp_sub) {
if ($tmp eq $subdata->{'subid'}) { $sub_linkcnt++; $cat_linkcnt++;}
}
}
$tmp_html .= "<a href=\"$script?mode=vew&subid=$subdata->{'subid'}\" target=\"vew\" class=\"menusub\"><img src=\"$imgdir/$dot_image\" border=0> $subdata->{'subname'} [$sub_linkcnt]</a><br>
\n";
}
}

$html .= "<a href=\"$script?mode=menu&catid=$temp&\" target=\"menu\" class=\"menu\"><img src=\"$imgdir/$dot_open\" border=0> $catdata->{'catname'} [$cat_linkcnt]</a><br>\n";
$html .= $tmp_html;
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";
}
}

if ($tmp_count == 0) {
foreach (%subcategory) {
$subdata = &GetSubCategory ($_);
if ($subdata->{'catid'} eq $catdata->{'catid'}) {
foreach $tmp_linkid (%link) {
$linkdata = &GetLink($tmp_linkid);
@tmp_sub = split (":", $linkdata->{'subid'});
foreach $tmp (@tmp_sub) {
if ($tmp eq $subdata->{'subid'}) {$cat_linkcnt++;}
}
}
}
}
$temp = $in->{'catid'};
$temp .= ":$catdata->{'catid'}";
$html .= "<a href=\"$script?mode=menu&catid=$temp\" target=\"menu\" class=\"menu\"><img src=\"$imgdir/$dot_close\" border=0> $catdata->{'catname'} [$cat_linkcnt]</a><br>\n";
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";
}
}

$html .= <<_HTML_;

[ この記事にコメントを返信する ] [ 原文引用 ]