罪と罰++二律背反

  • sub decode {
    
        #
        #  ・・・ 
        #
    
        $id             = $in{'id'};        
        $sogo_sel       = $in{'sogo_sel'};    # ←この行を追加
    }
               if(length($com)>80){ &error("全角40文字までです。",1); }
               $com =~ s/\n//g;
               $info_mes=$com;
       }

       # 称号
       if($sogo_lv[$sogo_sel]>0){
               $sogo = $sogo_sel;
       }
<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>|;
#------------------------------------------------------
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
Last-modified: 2012-06-08 (金) 00:26:08 (2738d)