masayaさん、初めまして。
この度EXIT改造版をDLさせていただきました。

1つ質問があるのですが、本家 EXIT のように各カテゴリの
左側メニュー部分のカテゴリの横などに
登録件数を表示させることはできないのでしょうか？

アドバイス願います。
何とぞ宜しくお願い致します。

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

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

>masayaさん、初めまして。
>この度EXIT改造版をDLさせていただきました。

ご利用ありがとうございます。
返事が遅くなってすみません。


>1つ質問があるのですが、本家 EXIT のように各カテゴリの
>左側メニュー部分のカテゴリの横などに
>登録件数を表示させることはできないのでしょうか？

CGIを改造すれば可能ですが、そのままでは無理です。

exit.cgiの57行目以降を以下のように変更してください。
取り急ぎ改修したので、バグがあったら教えてください。

sub menu {

&head;

my ($tmp_catid, $tmp_subid, $tmp_linkid, $catdata, $subdata, $linkdata, $subcat_count, $link_count, $tmp);
my @tmp_sub;
my (%tmp_list, %tmp_sublist) = ();
my ($cat_max) = &LoadCategory;
my ($scat_max) = &LoadSubCategory;
$html .= "<img src=\"$imgdir/menu.gif\" width=150 height=17><br>\n";
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";

&LoadLink;

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{$_});
$subcat_count = 0;
foreach $tmp_subid (keys %subcategory) {
$subdata = &GetSubCategory ($tmp_subid);
if ($subdata->{'catid'} == $catdata->{'catid'}) { $subcat_count++; }
}
if ($in->{'catid'} eq $catdata->{'catid'}) {
$html .= "<a href=\"$script?mode=menu&\" target=\"menu\" class=\"menu\"><img src=\"$imgdir/$dot_open\" border=0> $catdata->{'catname'} [$subcat_count]</a><br>\n";
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 $in->{'catid'}) {
$link_count = 0;
foreach $tmp_linkid (%link) {
$linkdata = &GetLink($tmp_linkid);
@tmp_sub = split (":", $linkdata->{'subid'});
foreach $tmp (@tmp_sub) {
if ($tmp eq $subdata->{'subid'}) { $link_count++; }
}
}
$html .= "<a href=\"$script?mode=vew&subid=$subdata->{'subid'}\" target=\"vew\" class=\"menusub\"><img src=\"$imgdir/$dot_image\" border=0> $subdata->{'subname'} [$link_count]</a><br>\n";
}
}
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";
} else {
$html .= "<a href=\"$script?mode=menu&catid=$catdata->{'catid'}&\" target=\"menu\" class=\"menu\"><img src=\"$imgdir/$dot_close\" border=0> $catdata->{'catname'} [$subcat_count]</a><br>\n";
$html .= "<img src=\"$imgdir/line2.$ext\" width=150 height=5><br>\n";
}
}

$html .= <<_HTML_;

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

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

説明を忘れていました。

カテゴリ名の後ろに、そのカテゴリに含まれるサブカテゴリ数が表示されます。
カテゴリを展開すると表示されるサブカテゴリ名の後ろに、登録されたリンク数が表示されます。

こんな感じでいいんですよね？

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

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

masayaさん、ありがとうございました！
バグはありませんでしたし、上手くいきましたー。

>カテゴリ名の後ろに、そのカテゴリに含まれるサブカテゴリ数が表示されます。
>カテゴリを展開すると表示されるサブカテゴリ名の後ろに、登録されたリンク数が表示されます。

欲を言うと、カテゴリ名の後ろにサブカテゴリ数ではなく、
そのカテゴリの中に登録してあるリンクの件数の合計が出れば…
と思ったのですが、どうでしょうか？

スミマセン！よろしくお願いします。

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

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

>masayaさん、ありがとうございました！
>バグはありませんでしたし、上手くいきましたー。

古いソースを元に改修してしまったので、複数カテゴリを同時に展開できなくなっていました。

>欲を言うと、カテゴリ名の後ろにサブカテゴリ数ではなく、
>そのカテゴリの中に登録してあるリンクの件数の合計が出れば…
>と思ったのですが、どうでしょうか？

とりあえず、ご希望のように変更してみました。
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_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_;

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

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

お礼が遅くなってしまい申し訳ありませんでした。
本当に本当にありがとうございました！
お手数をおかけして申し訳なく思っておりますが
思い通りに設置できて嬉しいです！ありがとうございました。

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