27 |
|
|
28 |
#use base qw/WebPAC::Common/; |
#use base qw/WebPAC::Common/; |
29 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
|
use Storable qw/dclone/; |
|
30 |
use Carp qw/confess/; |
use Carp qw/confess/; |
31 |
|
|
32 |
# debugging warn(s) |
# debugging warn(s) |
33 |
my $debug = 0; |
my $debug = 0; |
34 |
|
_debug( $debug ); |
35 |
|
|
36 |
# FIXME |
# FIXME |
37 |
use WebPAC::Normalize::ISBN; |
use WebPAC::Normalize::ISBN; |
449 |
} else { |
} else { |
450 |
$_->{$sf}; |
$_->{$sf}; |
451 |
} |
} |
452 |
} grep { ref($_) eq 'HASH' && $_->{$sf} } @{ $rec->{$f} }; |
} grep { ref($_) eq 'HASH' && defined $_->{$sf} } @{ $rec->{$f} }; |
453 |
} |
} |
454 |
|
|
455 |
=head2 rec |
=head2 rec |