--- trunk/run.pl 2005/11/20 20:13:39 74 +++ trunk/run.pl 2005/11/20 20:32:46 76 @@ -14,6 +14,8 @@ use WebPAC::Output::TT; use WebPAC::Output::Estraier; +my $limit = shift @ARGV; + my $abs_path = abs_path($0); $abs_path =~ s#/[^/]*$#/#; @@ -25,7 +27,7 @@ my $isis = new WebPAC::Input::ISIS( code_page => 'ISO-8859-2', # application encoding - limit_mfn => 50, + limit_mfn => $limit, ); my $maxmfn = $isis->open(