2 |
|
|
3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
use base 'WebPAC::Common'; |
6 |
use Data::Dumper; |
use Data::Dumper; |
7 |
|
|
8 |
=head1 NAME |
=head1 NAME |
79 |
return length($_); |
return length($_); |
80 |
}, ... |
}, ... |
81 |
}, |
}, |
82 |
db => $webpac_db_obj, |
db => $db_obj, |
83 |
lookup_regex => $lookup->regex, |
lookup_regex => $lookup->regex, |
84 |
); |
); |
85 |
|
|
129 |
|
|
130 |
if ($self->{'db'}) { |
if ($self->{'db'}) { |
131 |
my @ds = $self->{'db'}->load_ds($rec); |
my @ds = $self->{'db'}->load_ds($rec); |
132 |
return @ds if (@ds); |
$log->debug("load_ds( rec = ", sub { Dumper($rec) }, ") = ", sub { Dumper(@ds) }); |
133 |
|
return @ds if ($#ds > 0); |
134 |
|
$log->debug("cache miss, creating"); |
135 |
} |
} |
136 |
|
|
137 |
undef $self->{'currnet_filename'}; |
undef $self->{'currnet_filename'}; |
245 |
headline => $self->{'headline'}, |
headline => $self->{'headline'}, |
246 |
) if ($self->{'db'}); |
) if ($self->{'db'}); |
247 |
|
|
248 |
|
$log->debug("ds: ", sub { Dumper(@ds) }); |
249 |
|
|
250 |
return @ds; |
return @ds; |
251 |
|
|
252 |
} |
} |