4 |
use strict; |
use strict; |
5 |
|
|
6 |
use base qw/WebPAC::Common/; |
use base qw/WebPAC::Common/; |
7 |
|
use Storable; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
232 |
$log->debug("format: $format"); |
$log->debug("format: $format"); |
233 |
|
|
234 |
my @v; |
my @v; |
235 |
if ($format =~ /$LOOKUP_REGEX/o) { |
# FIXME this is a cludge! |
236 |
|
if ($format =~ /$WebPAC::Lookup::LOOKUP_REGEX/o) { |
237 |
@v = $self->fill_in_to_arr($rec,$format); |
@v = $self->fill_in_to_arr($rec,$format); |
238 |
} else { |
} else { |
239 |
@v = $self->parse_to_arr($rec,$format); |
@v = $self->parse_to_arr($rec,$format); |