--- trunk/lib/WebPAC/Normalize.pm	2007/04/02 17:20:01	815
+++ trunk/lib/WebPAC/Normalize.pm	2007/04/05 21:50:14	817
@@ -542,10 +542,10 @@
 			my $old = $_->[1];
 			if (length($old) < $pos) {
 				$_->[1] .= ' ' x ( $pos - length($old) ) . $val;
-				warn "## marc_fixed($f,$pos,'$val') append '$old' -> '$_->[1]'\n";
+				warn "## marc_fixed($f,$pos,'$val') append '$old' -> '$_->[1]'\n" if ($debug > 1);
 			} else {
 				$_->[1] = substr($old, 0, $pos) . $val . substr($old, $pos + length($val));
-				warn "## marc_fixed($f,$pos,'$val') update '$old' -> '$_->[1]'\n";
+				warn "## marc_fixed($f,$pos,'$val') update '$old' -> '$_->[1]'\n" if ($debug > 1);
 			}
 			$update++;
 		}
@@ -554,7 +554,7 @@
 	if (! $update) {
 		my $v = ' ' x $pos . $val;
 		push @{ $marc_record->[ $marc_record_offset ] }, [ $f, $v ];
-		warn "## marc_fixed($f,$pos,'val') created '$v'\n";
+		warn "## marc_fixed($f,$pos,'val') created '$v'\n" if ($debug > 1);
 	}
 }