--- trunk/lib/WebPAC/Parser.pm 2006/09/25 11:14:53 698 +++ trunk/lib/WebPAC/Parser.pm 2006/09/25 12:51:17 699 @@ -92,6 +92,8 @@ $self->{config}->iterate_inputs( sub { my ($input, $database) = @_; + $log->debug("database: $database input = ", dump($input)); + my @normalize; if (ref($input->{normalize}) eq 'ARRAY') { @@ -100,6 +102,8 @@ @normalize = ( $input->{normalize} ); } +$log->warn("normalize = ",dump(@normalize)); + foreach my $normalize (@normalize) { my $path = $normalize->{path}; @@ -333,7 +337,10 @@ my $self = shift; my ($database,$input) = @_; $self->_get_logger->debug("depends($database,$input)"); - return unless defined( $self->{depends}->{ _q($database) }->{ _q($input) } ); + return unless ( + defined( $self->{depends}->{ _q($database) } ) && + defined( $self->{depends}->{ _q($database) }->{ _q($input) } ) + ); return $self->{depends}->{ _q($database) }->{ _q($input) }; }