- 追加された行はこの色です。
- 削除された行はこの色です。
[[罪罰/称号]]
*称号の切り替え [#x24ec4d5]
-称号を変更できるようにする
-旧称号を使っていると使用できません
-称号レベルが必要
-罪罰/称号レベルが必要
**切り替え処理を追加する [#f30123e0]
-デコードを追加 ./inc/ore_sub-system.cgi
sub decode {
#
# ・・・
#
$id = $in{'id'};
$sogo_sel = $in{'sogo_sel'}; # ←この行を追加
}
-切り替え処理 ./inc/ore_sub-infomation_pc.cgi
if(length($com)>80){ &error("全角40文字までです。",1); }
$com =~ s/\n//g;
$info_mes=$com;
}
# 称号
if($sogo_lv[$sogo_sel]>0){
$sogo = $sogo_sel;
}
**称号選択を追加 ./inc/ore_sub-infomation_pc.cgi [#w51b063b]
<input type=submit value="ポチッ/更新" class="button2" style="width:100px">
<input type=reset value="クリア" class="button2" style="width:40px">
<br>
コメントは全角40文字まで。
</form>
</div>
EOM
↓のように変更
<input type=submit value="ポチッ/更新" class="button2" style="width:100px">
<input type=reset value="クリア" class="button2" style="width:40px">
<br>
コメントは全角40文字まで。
<br>
EOM
&sogo_list;
$log .= qq|</form></div>|;
**ファイルの最後に追加 ./inc/ore_sub-infomation_pc.cgi [#t0eb6098]
#------------------------------------------------------
sub sogo_list{
$sogo_no = 0;
$log .= qq| 称 号:<select name="sogo_sel">|;
foreach(0 .. $#sogo_p){
$sogo_no = $_;
if($sogo_lv[$sogo_no]>0 ){
$log.=qq|<option value="$sogo_no"|;
if($sogo == $sogo_no){
$log.=qq| selected |;
}
$log.=qq|>$sogo_no $sogo_p[$sogo_no]|;
$log.=qq| lv.$sogo_lv[$sogo_no]|;
$log.=qq|</option>|;
}
}
$log .= qq|</select>|;
}
#------------------------------------------------------
1;#削除不可