--- trunk/lib/WebPAC/Normalize.pm	2006/09/29 19:52:26	728
+++ trunk/lib/WebPAC/Normalize.pm	2006/09/29 20:18:30	729
@@ -1019,7 +1019,7 @@
 
 	confess "lookup needs 5 arguments: what, database, input, key, having" unless ($#_ == 4);
 
-	warn "# lookup ($database, $input, $key)\n";
+	warn "## lookup ($database, $input, $key)", $/ if ($debug > 1);
 	return unless (defined($lookup->{$database}->{$input}->{$key}));
 
 	confess "lookup really need load_ds_coderef added to data_structure\n" unless ($load_ds_coderef);
@@ -1027,7 +1027,7 @@
 	my $mfns;
 	my @having = $having->();
 
-	warn "## having = ", dump( @having );
+	warn "## having = ", dump( @having ) if ($debug > 2);
 
 	foreach my $h ( @having ) {
 		if (defined($lookup->{$database}->{$input}->{$key}->{$h})) {
@@ -1097,7 +1097,7 @@
 	die "save_into_lookup needs key" unless defined($key);
 	die "save_into_lookup needs CODE" unless ( defined($coderef) && ref($coderef) eq 'CODE' );
 
-warn "## save_into_lookup rec = ", dump($rec), " config = ", dump($config),"\n";
+	warn "## save_into_lookup rec = ", dump($rec), " config = ", dump($config), $/ if ($debug > 2);
 
 	my $mfn = 
 		defined($rec->{'000'}->[0])	?	$rec->{'000'}->[0]	: