--- trunk/lib/WebPAC/Normalize.pm 2006/09/26 10:23:04 712 +++ trunk/lib/WebPAC/Normalize.pm 2006/09/29 12:27:47 721 @@ -979,7 +979,7 @@ my $mfn = $rec->{'000'}->[0] || die "mfn not defined or zero"; foreach my $v ( $coderef->() ) { $lookup->{$database}->{$input}->{$key}->{$v}->{$mfn}++; - warn "# saved lookup $database/$input/$key [$v] $mfn\n"; #if ($debug > 1); + warn "# saved lookup $database/$input/$key [$v] $mfn\n" if ($debug > 1); } }