リスト表示のときに出てくるサブカテゴリの順番はどんな順番ですか？
カテゴリの順番どおりに表示することってできませんか？

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

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

>リスト表示のときに出てくるサブカテゴリの順番はどんな順番ですか？
>カテゴリの順番どおりに表示することってできませんか？

返事が遅くなってごめんなさい。

リスト表示の順番は、サブカテゴリ名のソート順です。
おまけ機能っぽいものなので、まじめに実装してません。(^^;

グループソートに対応させたリスト表示ルーチンを付けておきます。
exit.cgi 371行目以降のリスト表示ルーチンと入れ替えることで、カテゴリを含むグループソートに対応します。
#要するに左フレームのツリー構造と同じ順番になります。



##-->LIST表示

sub list {
open(LOAD,"$logfile") || &error("ログファイルが開けません...Line：".__LINE__,"head");
@box = <LOAD>;
close(LOAD);
if ($ntop==1) { @box = reverse @box; }

&head;
$html .= "<br><table width=400 border=0 cellspacing=0 cellpadding=0>\n<tr><td>\n";

$time=time();

&LoadCategory;
&LoadSubCategory;

foreach $tmp_catid (keys %category) {
$catdata = &GetCategory ($tmp_catid);
$tmp_list{$catdata->{'group'}."_".$catdata->{'catname'}."_".$tmp_catid} = $tmp_catid;
}

foreach $tmp_subid (keys %subcategory) {
$subdata = &GetSubCategory ($tmp_subid);
$tmp_sublist{$subdata->{'group'}."_".$subdata->{'subname'}."_".$tmp_subid} = $tmp_subid;
}

foreach $tmp_catid (sort keys %tmp_list) {
$catdata = &GetCategory ($tmp_list{$tmp_catid});

foreach (sort keys %tmp_sublist) {
$subdata = &GetSubCategory ($tmp_sublist{$_});
if ($catdata->{'catid'} != $subdata->{'catid'}) { next;}

@text=();
foreach $line (@box) {
local($xno,$xjenre,$sitename,$master,$url,$com,$bn,$date,$xtime) = split(/\t/, $line);
@jb = split(":",$xjenre);
$f=0;
foreach $tmp (@jb) {
if($tmp eq $subdata->{'subid'}) { $f=1; }
}
if ($f==0) { next; }
$new="";
$sitename = "<a href=\"$url\"$target class=\"listhost\"><img src=\"$imgdir/$dot_image\" border=0> $sitename</a>";
if ($master) { $master = ": <span class=\"listmaster\">MASTER:$master $keisho</span>";}
if ($time <= $xtime+(60*60*24*$newd)) { $new = "<img src=\"$imgdir/new.$ext\" width=25 height=9>"; }
push(@text,"$sitename $master <a href=\"$script?mode=vew&id=$xno\"><img src=\"$imgdir/data.$ext\" width=30 height=9 border=0></a>$new<!-- $date --><br><img src=\"$imgdir/dummy.png\" width=3 height=3><br>\n");
}
if (@text) {
$html .= "<div align=right class=\"header\"><b> $catdata->{'catname'}\/$subdata->{'subname'} </b></div>\n";
$html .= "@text";
$html .= "<br>\n";
}
}
}

$html .= "<br>\n<div><img src=\"$imgdir/line.$ext\" width=400 height=5></div>\n<span class=\"ss\">□タイトルをクリックするとサイトのURLにジャンプします．<br>□<img src=\"$imgdir/data.$ext\" width=30 height=9 border=0 align=middle>をクリックするとそのサイトの詳細が見られます．</span>\n</td></tr>\n</table>\n";
&foot;
}

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

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

わしの望むようになりました。ありがとうございました。＾＾

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