ぜろちゃんねるスクリプト総合質問スレ Part2

745 ：はりねずみ ◆RinEzumM ：2003/07/19 18:55 ID:???

板トップは
module/varda.pl 643-659行目あたり

　for　($i = 0;$i < $n;$i++){　　　　　　　　　　　　　　# 先頭メニュー作成
　　$l = $i + 1;
　　($key,$subj,$res) = $B->Get($i);
　　$path = "$rpath/read.cgi/" . $M->Get('BBS') . "/$key";
　　$T->Print("<a href=\"$path/l50\" target=\"body\">$l:</a> ");
　　$T->Print("<a href=\"#$l\">$subj($res)</a>[ここ]\n");
　}
　for　($i = $n;$i < $m;$i++){　　　　　　　　　　　　　　# 残りメニュー作成
　　$l = $i + 1;
　　($key,$subj,$res) = $B->Get($i);
　　$path = "$rpath/read.cgi/" . $M->Get('BBS') . "/$key";
　　$T->Print("<a href=\"$path/l50\" target=\"body\">$l: ");
# QUERY_STRING用
#　　$path = "$rpath/read.cgi?bbs=" . $M->Get('BBS') . "&key=$key";
#　　$T->Print("<a href=\"$path&last=50&nofirst=false\" target=\"body\">$l: ");
　　 $T->Print("$subj($res)</a>[ここ]\n");
　}

746 ：はりねずみ ◆RinEzumM ：2003/07/19 18:58 ID:???

subback.htmlは
同じくmodule/varda.pl 259-267行目あたり

　for　($i = 1;$i < $subNum + 1;$i++){
　　($key,$subj)　= split(/<>/,$pSubj->[$i - 1]);
　　($key,$work)　= split(/\./,$key);
　　$subj　　　=~ s/\((\d+)\)\n//;　　　　　　　　　　　# タイトルの取り出し
　　$res　　　= $1;　　　　　　　　　　　　　　# レス数の取り出し

　　$path = "$bpath/read.cgi/$bbs/$key/l50";
　　$T->Print("<a href=\"$path\" target=_blank>$i:$subj($res)</a>[ここ]\n");
　}

両方とも[ここ]の部分を変える