13 |
use WebPAC::Store 0.03; |
use WebPAC::Store 0.03; |
14 |
use WebPAC::Normalize::XML; |
use WebPAC::Normalize::XML; |
15 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
16 |
use WebPAC::Output::Estraier 0.08; |
use WebPAC::Output::Estraier '0.10'; |
17 |
use YAML qw/LoadFile/; |
use YAML qw/LoadFile/; |
18 |
use Getopt::Long; |
use Getopt::Long; |
19 |
use File::Path; |
use File::Path; |
92 |
my $est_config = $config->{hyperestraier} || $log->logdie("can't find 'hyperestraier' part in confguration"); |
my $est_config = $config->{hyperestraier} || $log->logdie("can't find 'hyperestraier' part in confguration"); |
93 |
$est_config->{database} = $database; |
$est_config->{database} = $database; |
94 |
$est_config->{clean} = $clean; |
$est_config->{clean} = $clean; |
95 |
|
$est_config->{label} = $db_config->{name}; |
96 |
|
|
97 |
my $est = new WebPAC::Output::Estraier( %{ $est_config } ); |
my $est = new WebPAC::Output::Estraier( %{ $est_config } ); |
98 |
|
|
153 |
limit => $limit || $input->{limit}, |
limit => $limit || $input->{limit}, |
154 |
offset => $offset, |
offset => $offset, |
155 |
lookup => $lookup, |
lookup => $lookup, |
156 |
|
recode => $input->{recode}, |
157 |
); |
); |
158 |
$log->logdie("can't create input using $input_module") unless ($input); |
$log->logdie("can't create input using $input_module") unless ($input); |
159 |
|
|