}else{ # キャンセル $log .= qq|銀行を出ました|; $tm=0;$cmd=0;&shop_menu; } # ------------------------------- ここから }elsif($tm==76){ &lent_in2; $tm = 70; }elsif($tm==78){ &lent_out2; $tm = 70; # ------------------------------- ここまで }elsif($tm==82){ # 入庫処理 if($in{'aite'} eq ''){ &soko_in; $log2 .=qq|<option value="1">$vw G</option>\n|; $log2 .=qq|<option value="2">$vx G</option>\n|; $log2 .=qq|</select><br>\n|; $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|; $tm = 76; # ココを削除 # &lent_in; } } } #----------------------------------------- # 返済処理 $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|; $tm = 78; # ここを削除 # &lent_out; } } } #----------------------------------------- # 借金処理 |