<input type="submit" value="+ 通 信 +" class="button1"> </td> </form> </tr> EOM if($no_mouse>=3){ print qq|<tr>$log2</tr>|; } if($pr>0){ # ←ここから追加 print<<EOM; <tr> <form method="$method" action="./ore_.cgi"> <td valilgn="middle"> <input type="hidden" name="id" value="$id"> <input type="hidden" name="pw" value="$pw"> <input type="submit" value="+ 現状維持 +" class="button1"> </td> </form> </tr> EOM } # ←ここまで追加
print qq|<html><head><meta http-equiv="Cache-Control" content="no-cache"><title>$titleh</title></head><body $body>|; print qq|$title_i<br>| if(!$tm && !$log); if($pr>0){ # ←ここから追加 print qq|<form method="$method" action="./ore_.cgi"><input type="hidden" name="id" value="$id"><input type="hidden" name="pw" value="$pw"><input type="submit" value="+ 更 新 +" class="button1"></form><br><hr>|; } # ←ここまで追加 if($lt_mode =~ /00/){print qq|$log1<hr color=white>| if(!$tm && !$log)} else{print qq|$log1<hr color=white>|;}