8 |
/; |
/; |
9 |
use Data::Dumper; |
use Data::Dumper; |
10 |
use WebPAC::Store 0.08; |
use WebPAC::Store 0.08; |
11 |
use WebPAC::Output::TT 0.06; |
use WebPAC::Output::TT 0.07; |
12 |
use WebPAC::Search::Estraier 0.05; |
use WebPAC::Search::Estraier 0.05; |
13 |
use File::Slurp; |
use File::Slurp; |
14 |
use Time::HiRes; |
use Time::HiRes; |
15 |
use Encode qw/encode decode from_to/; |
use Encode qw/encode decode from_to/; |
16 |
|
use Data::HTMLDumper; |
17 |
|
|
18 |
=head1 NAME |
=head1 NAME |
19 |
|
|
96 |
|
|
97 |
$self->{out} = new WebPAC::Output::TT( |
$self->{out} = new WebPAC::Output::TT( |
98 |
include_path => $template_path, |
include_path => $template_path, |
99 |
filters => { foo => sub { shift } }, |
filters => { |
100 |
|
dump_html => sub { |
101 |
|
return unless (@_); |
102 |
|
my $out; |
103 |
|
my $i = 1; |
104 |
|
foreach my $v (@_) { |
105 |
|
$out .= qq{<div id="dump_$i">} . |
106 |
|
Data::HTMLDumper->Dump([ $v ],[ "v$i" ]) . |
107 |
|
qq{</div>}; |
108 |
|
$i++; |
109 |
|
} |
110 |
|
$out =~ s!<table[^>/]*>!<table class="dump">!gis if ($out); |
111 |
|
return $out; |
112 |
|
} |
113 |
|
}, |
114 |
); |
); |
115 |
|
|
116 |
# default template from config.yaml |
# default template from config.yaml |
152 |
|
|
153 |
my $log = $self->{log}; |
my $log = $self->{log}; |
154 |
|
|
155 |
$log->debug("args: " . Dumper( $args )); |
$log->debug("search args: " . Dumper( $args )); |
156 |
|
|
157 |
my $query = $args->{phrase} || $log->warn("no query phrase") && return; |
my $query = $args->{phrase} || $log->warn("no query phrase") && return; |
158 |
|
|
269 |
|
|
270 |
my $args = {@_}; |
my $args = {@_}; |
271 |
my $log = $self->{log}; |
my $log = $self->{log}; |
272 |
$log->debug("args: " . Dumper( $args )); |
$log->debug("record args: " . Dumper( $args )); |
273 |
|
|
274 |
foreach my $f (qw/record_uri template/) { |
foreach my $f (qw/record_uri template/) { |
275 |
$log->fatal("need $f") unless ($args->{$f}); |
$log->fatal("need $f") unless ($args->{$f}); |