--- trunk/lib/WebPAC/Normalize.pm	2005/12/16 14:40:55	260
+++ trunk/lib/WebPAC/Normalize.pm	2005/12/20 23:31:37	312
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.06
+Version 0.07
 
 =cut
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 =head1 SYNOPSIS
 
@@ -123,7 +123,7 @@
 
 	$log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l);
 
-	if ($self->{filter} && ! $self->{filter}->{regex}) {
+	if (! $self->{filter} || ! $self->{filter}->{regex}) {
 		$log->debug("adding built-in filter regex");
 		$self->{filter}->{regex} = sub {
 			my ($val, $regex) = @_;
@@ -157,7 +157,7 @@
 
 	$log->debug("data_structure rec = ", sub { Dumper($rec) });
 
-	$log->logdie("need unique ID (mfn) in field 000 of record ", sub { Dumper($rec) } ) unless (defined($rec->{'000'}));
+	$log->logdie("need unique ID (mfn) in field 000 of record " . Dumper($rec) ) unless (defined($rec->{'000'}));
 
 	my $id = $rec->{'000'}->[0] || $log->logdie("field 000 isn't array!");
 
@@ -170,9 +170,6 @@
 		$log->debug("cache miss, creating");
 	}
 
-	undef $self->{'currnet_filename'};
-	undef $self->{'headline'};
-
 	my @sorted_tags;
 	if ($self->{tags_by_order}) {
 		@sorted_tags = @{$self->{tags_by_order}};
@@ -301,6 +298,8 @@
 
 =cut
 
+my $warn_once;
+
 sub parse {
 	my $self = shift;
 
@@ -381,8 +380,9 @@
 			$out = $self->{'filter'}->{$filter_name}->(@filter_args);
 			return unless(defined($out));
 			$log->debug("filter result: $out");
-		} else {
+		} elsif (! $warn_once->{$filter_name}) {
 			$log->warn("trying to use undefined filter $filter_name");
+			$warn_once->{$filter_name}++;
 		}
 	}