罪罰/称号の切替

• 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;#削除不可