罪罰改造板２/328

	if($camp eq'' || $camp < 1 || $camp > 5){

	# if($camp eq'' || $camp < 1 || $camp > 5){
	if (0==1) {

				$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">&gt;&gt; 備考: $seibetu[$SEI_V]&nbsp;&nbsp;&nbsp;&nbsp;格言: $MES_V</td></tr>\n|;
			}
		}

	# }else{			# ↑の２行に加えて
	}elsif( 1==0 ){		# ←この２行を修正

		foreach(0 .. $#tdat){
			%R = '';
			my @prats = split(/,/,$tdat[$_]);
			foreach $prats (@prats){