サイトトップ
>
フォーラム一覧
-
トピックス
> [00] GHOST LAB |
READONLY
カスタマイズ
|
ヘルプ
CGI サポートフォーラム
新規投稿
ツリー表示
一括表示
リスト表示
検索
質問をする前に、過去ログに同じ質問がないか検索してください。
記事 No.462 の編集
記事を編集するには管理パスワードが必要です。
管理パスワード
記事タイトル
お名前
masaya
メール
ホームページ
文章欄
HTMLタグは使えません
http://〜とURLを記述すると自動的にリンクされます
改行は反映されます
>こんにちは、以前こちらで質問させていただきましたが、その節は親切にサポートいただきまして本当にありがとうございました。 >管理の手軽さ、また階層式の便利さに惚れ込み、リンク以外にも色々使ってみようと只今少しずつ手を加えておりますが、その中でいくつか質問させていただきます。 いえいえ、ご丁寧なご挨拶ありがとうございます。 喜んでもらえるとサポートのしがいも湧くので、励みになります。(^^ >フレーム形式が左右になっていますが、こちらを上下に変えることは可能でしょうか。exit.cgiのrowsをcolsに変更後、表示関係(40行目)以下の改行を一部削除したのですが、どうしても表示が > >カテゴリA > サブカテゴリA1 > サブカテゴリA2 カテゴリB > サブカテゴリB1 > サブカテゴリB2... >となってしまいます。 > >できればデフォルトでカテゴリを開いた状態にし > >カテゴリA カテゴリB カテゴリC > サブカテゴリA1 サブカテゴリB1 サブカテゴリC1 > サブカテゴリA2 サブカテゴリB2 サブカテゴリC2... >―――――――――――――――――――――――――――フレームで分割 > データ等表示部分 > >という表示にしたいのですが、こちらは大幅な改造無しに可能でしょうか? >お手隙の際にでも回答いただければ幸いです。よろしくお願いします。 カテゴリを横に並べるには、テーブルを使うのが楽だと思います。 本当は、JavaScript でやるのがきれいなんでしょうけど、ブラウザ依存が激しいので、JavaScriptは嫌いだったりします。 # メジャーじゃないブラウザを使っているので、悲しい思いをたまにしていますので・・・。 サンプルで作ってみた menu のルーチンを付けておくので試してみてください。 ただ、横並びだと、カテゴリの数が増えたときに、画面からはみ出させるか、カテゴリ名の表示幅を縮めるかする必要があるので、そこをどうするか考えどころですね。 sub menu { &head; my ($tmp_catid, $tmp_subid, $catdata, $subdata); my (%tmp_list, %tmp_sublist) = (); my ($cat_max) = &LoadCategory; my ($cols) = $cat_max + 1; $html .= <<_HTML_;
\n
_HTML_ @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; foreach $tmp (@tmp_cat) { if ($tmp eq $catdata->{'catid'}) { $temp = $in->{'catid'}; $temp =~ s/:$tmp:/:/g; $temp =~ s/^$tmp://; $temp =~ s/:$tmp$//; $html .= "
$catdata->{'catname'}
\n"; $tmp_count++; 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 $tmp) { $html .= "
{'subid'}\" target=\"vew\" class=\"menusub\">
$subdata->{'subname'}
\n"; } } $html .= "
\n"; } } if ($tmp_count == 0) { $temp = $in->{'catid'}; $temp .= ":$catdata->{'catid'}"; $html .= "
$catdata->{'catname'}
\n"; } } $html .= <<_HTML_;
テキスト表示
リスト表示
NEWLIST
INFO
管理用
HOME