--- trunk/lib/WebPAC/Normalize.pm	2005/12/16 14:40:55	260
+++ trunk/lib/WebPAC/Normalize.pm	2005/12/16 16:00:18	261
@@ -301,6 +301,8 @@
 
 =cut
 
+my $warn_once;
+
 sub parse {
 	my $self = shift;
 
@@ -381,8 +383,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}++;
 		}
 	}