--- trunk/lib/WebPAC/Normalize.pm	2006/09/06 20:54:47	641
+++ trunk/lib/WebPAC/Normalize.pm	2006/09/06 21:09:30	642
@@ -731,7 +731,7 @@
 
 sub _pack_subfields_hash {
 
-	warn "## _pack_subfields_hash( ",dump(@_), " )\n";
+	warn "## _pack_subfields_hash( ",dump(@_), " )\n" if ($debug > 1);
 
 	my ($h,$include_subfields) = @_;
 
@@ -777,7 +777,6 @@
 		my @out;
 		foreach my $h ( @{ $rec->{$f} } ) {
 			if (ref($h) eq 'HASH') {
-warn "rec1 hash: ",dump($h),"\n";
 				push @out, ( _pack_subfields_hash( $h ) );
 			} else {
 				push @out, $h;