[[罪罰改造]]
*修行リスト番号対応 [#e4548716]
**./inc/ore_sub-training_pc.cgiとtraining_mv [#fea0a056]
-まず、_pc.cgi,_mv.cgi共に
# 参加者ステータス取得
$trlst = '' if(!$tm); #
$lp = 0; #
foreach(0 ..$#tdat){
%R = '';
-_pc.cgiのリスト番号生成
$N_M{$R{'nm'}} = $R{'id'};
if($R{'id'} ne '' && !$tm){ #
$lp++; #
$trlst .= "$R{'id'}"; #
$NO_V{$R{'nm'}} = $lp; #
} #
}
}
# 修行リスト表示
if(!$tm){
-_pc.cgiの表示部分
$log .= ($agent !~ /Mac/) ?
qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$NO_V{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|:
qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$NO_V{$nm}" name="com" class="a5">\n|;
# qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|:
# qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5">\n|;
-_mv.cgiの表示部分
$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$NO_V{$nm}">$rk位 Lv$lv_v |;
# $log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$N_M{$nm}">$rk位 Lv$lv_v |;
-_mv.cgi、_pc.cgi共割り当て部分をに追加
# 対戦相手割り当て
elsif($tm){
if($com){
@trlst = split('=',$trlst); #
$trlst = ''; #
$com = $trlst[$com-1]; #
open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
**./inc/ore_sub-sytem.cgi [#t72dd733]
+書き込み部分に trlst;$trlst を追加
+読み出し部分に追加
$trlst = $DAT{'trlst'};