--- trunk/lib/WebPAC/Config.pm 2006/09/24 18:52:31 688 +++ trunk/lib/WebPAC/Config.pm 2007/06/21 12:53:41 866 @@ -92,9 +92,8 @@ sub use_indexer { my $self = shift; - my $default = 'hyperestraier'; return unless ($self->{config}); - return $self->{config}->{use_indexer} || $default; + return $self->{config}->{use_indexer} || undef; } =head2 get @@ -140,6 +139,9 @@ # ... do something with input config hash } ); +This function will also modify C<< $input->{normalize} >> to +be C, even with just one element. + =cut sub iterate_inputs { @@ -162,6 +164,9 @@ foreach my $input (@inputs) { $log->debug("iterating over input ", dump($input)); + if ( defined( $input->{normalize} ) && ref($input->{normalize}) ne 'ARRAY' ) { + $input->{normalize} = [ $input->{normalize} ]; + } $code_ref->($input, $database, $db_config); } }