[[罪罰/称号]] *称号の切り替え [#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;#削除不可