罪と罰++二律背反 
[[罪罰/称号]]

*称号の切り替え [#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;#削除不可
トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS