r1289@llin: dpavlin | 2007-06-21 23:26:10 +0200

 * transfer input configuration hash as input_config to input module

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@868 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 1315dfa..4651f3b 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -64,6 +64,9 @@ Create new input database object.
        encoding => 'ISO-8859-2',
        recode => 'char pairs',
        no_progress_bar => 1,
+       input_config => {
+               mapping => [ 'foo', 'bar', 'baz' ],
+       },
   );
 
 C<module> is low-level file format module. See L<WebPAC::Input::ISIS> and
@@ -233,6 +236,7 @@ sub open {
 
        my $ll_db = $class->new(
                path => $arg->{path},
+               input_config => $arg->{input_config},
 #              filter => sub {
 #                      my ($l,$f_nr) = @_;
 #                      return unless defined($l);

diff --git a/run.pl b/run.pl
index 036b1bb..0198730 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -362,6 +362,7 @@ foreach my $database ( sort keys %{ $config->databases } ) {
                        stats => $stats,
                        modify_records => $input->{modify_records},
                        modify_file => $input->{modify_file},
+                       input_config => $input,
                );
                $log->logdie("can't create input using $input_module") unless ($input);