From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 21 Jun 2007 21:26:17 +0000 (+0000)
Subject:  r1289@llin:  dpavlin | 2007-06-21 23:26:10 +0200
X-Git-Url: http://git.rot13.org/?p=webpac2;a=commitdiff_plain;h=bdf8b4ed18f873ee059d223533492a5243092132

 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
--- 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
--- 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);