--- trunk/lib/WebPAC/Config.pm 2006/09/24 18:52:31 688 +++ trunk/lib/WebPAC/Config.pm 2006/09/25 12:51:33 700 @@ -140,6 +140,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 +165,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); } }