600 |
if ($marc) { |
if ($marc) { |
601 |
my $i = 0; |
my $i = 0; |
602 |
|
|
603 |
while (my $fields = WebPAC::Normalize::_get_marc_fields( fetch_next => 1 ) ) { |
while (my $fields = WebPAC::Normalize::MARC::_get_marc_fields( fetch_next => 1 ) ) { |
604 |
$marc->add( |
$marc->add( |
605 |
id => $mfn . ( $i ? "/$i" : '' ), |
id => $mfn . ( $i ? "/$i" : '' ), |
606 |
fields => $fields, |
fields => $fields, |
607 |
leader => WebPAC::Normalize::_get_marc_leader(), |
leader => WebPAC::Normalize::MARC::_get_marc_leader(), |
608 |
row => $row, |
row => $row, |
609 |
); |
); |
610 |
$i++; |
$i++; |