--- trunk/lib/WebPAC/Config.pm 2006/09/24 17:49:05 687 +++ trunk/lib/WebPAC/Config.pm 2006/09/24 18:52:31 688 @@ -14,11 +14,11 @@ =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; =head1 SYNOPSIS @@ -136,7 +136,7 @@ =head2 iterate_inputs $config->iterate_inputs( sub { - my $input = shift; + my ($input, $database, $database_config_hash) = @_; # ... do something with input config hash } ); @@ -162,7 +162,7 @@ foreach my $input (@inputs) { $log->debug("iterating over input ", dump($input)); - $code_ref->($input); + $code_ref->($input, $database, $db_config); } }