--- trunk/lib/WebPAC/Input.pm 2005/12/19 21:25:57 300 +++ trunk/lib/WebPAC/Input.pm 2005/12/19 21:26:04 301 @@ -101,8 +101,7 @@ my $n = $self->{module} . '::' . $subclass; if (! defined &{ $n }) { my $missing = "missing $subclass in $self->{module}"; - $log->logwarn($missing); - $self->{$subclass} = sub { warn "$missing\n" }; + $self->{$subclass} = sub { $log->logwarn($missing) }; } else { $self->{$subclass} = \&{ $n }; } @@ -210,7 +209,7 @@ } if ($self->{limit}) { - $log->info("limiting to ",$self->{limit}," records"); + $log->debug("limiting to ",$self->{limit}," records"); $limit = $offset + $self->{limit} - 1; $limit = $size if ($limit > $size); }