r466@llin: dpavlin | 2006-02-19 17:45:26 +0100

[webpac2] / run.pl

diff --git a/run.pl b/run.pl
index c0820af..b4e7ae5 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -13,7 +13,7 @@ use WebPAC::Input 0.03;
 use WebPAC::Store 0.03;
 use WebPAC::Normalize::XML;
 use WebPAC::Output::TT;
-use WebPAC::Output::Estraier 0.08;
+use WebPAC::Output::Estraier '0.10';
 use YAML qw/LoadFile/;
 use Getopt::Long;
 use File::Path;
@@ -92,6 +92,7 @@ while (my ($database, $db_config) = each %{ $config->{databases} }) {
        my $est_config = $config->{hyperestraier} || $log->logdie("can't find 'hyperestraier' part in confguration");
        $est_config->{database} = $database;
        $est_config->{clean} = $clean;
+       $est_config->{label} = $db_config->{name};
 
        my $est = new WebPAC::Output::Estraier( %{ $est_config } );