263 |
warn "debug level $l",$/ if ($l > 0); |
warn "debug level $l",$/ if ($l > 0); |
264 |
$debug = $l; |
$debug = $l; |
265 |
$WebPAC::Normalize::MARC::debug = $debug; |
$WebPAC::Normalize::MARC::debug = $debug; |
|
warn "#### MARC::debug = ",dump($WebPAC::Normalize::MARC::debug); |
|
266 |
} |
} |
267 |
|
|
268 |
=head1 Functions to create C<data_structure> |
=head1 Functions to create C<data_structure> |
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 |