--- trunk/lib/WebPAC/Normalize.pm 2006/09/25 18:58:43 710 +++ trunk/lib/WebPAC/Normalize.pm 2006/09/26 10:05:25 711 @@ -977,7 +977,7 @@ my $mfn = $rec->{'000'}->[0] || die "mfn not defined or zero"; foreach my $v ( $coderef->() ) { $lookup->{$k}->{$v}->{$mfn}++; - warn "# lookup $k $v $mfn saved\n"; # if ($debug > 1); + warn "# lookup $k $v $mfn saved\n" if ($debug > 1); } }