サイトトップ
>
フォーラム一覧
-
トピックス
> [00] GHOST LAB |
READONLY
カスタマイズ
|
ヘルプ
CGI サポートフォーラム
新規投稿
ツリー表示
一括表示
リスト表示
検索
質問をする前に、過去ログに同じ質問がないか検索してください。
記事 No.365 の編集
記事を編集するには管理パスワードが必要です。
管理パスワード
記事タイトル
お名前
masaya
メール
ホームページ
文章欄
HTMLタグは使えません
http://〜とURLを記述すると自動的にリンクされます
改行は反映されます
>実は、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 .= "
\n"; $html .= "
\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 .= "
{'subid'}\" target=\"vew\" class=\"menusub\">
$subdata->{'subname'} [$sub_linkcnt]
\n"; } } $html .= "
$catdata->{'catname'} [$cat_linkcnt]
\n"; $html .= $tmp_html; $html .= "
\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 .= "
$catdata->{'catname'} [$cat_linkcnt]
\n"; $html .= "
\n"; } } $html .= <<_HTML_;
- TOP -
管理者:
webmaster
■ホーム
■フォーラム一覧
■トピックス
■管理画面
■[00] GHOST LAB
├ CGI サポートフォーラム
├ JUNK TEST
├ 雑談フォーラム
■[01] KAJIKAJI KINGDOM
├ K2K更新履歴
├ はむはむ掲示板
■[02] Love & Peace from BTM
├ BTM フォーラム
├ LoveP 更新履歴
■[03] masaya's memo
├ Memo Board
■[99] GHOST 管理者用
├ HISTORY
├ 連絡用掲示板
NICOLE's - WWWForum 3.7c
Modified by masaya