罪罰改造板２/301

	sub tsyogo{ $tsyogo = ($tsogo > 0) ? "$tnm$sogo_p[$tsogo]" : "$tnm"; }

• $tnm = $DAT{'nm'}
  $tnm .= ($DAT{'sogo'}>0) ? "[$sogo_p[$DAT{'sogo'}]]":"";

• $tnm .= "[$sogo_p[$DAT{'sogo'}]]" if($DAT{'sogo'}>0);