661 |
if ($f eq '*') { |
if ($f eq '*') { |
662 |
|
|
663 |
delete( $marc_record->[ $marc_record_offset ] ); |
delete( $marc_record->[ $marc_record_offset ] ); |
664 |
|
warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1); |
665 |
|
|
666 |
} else { |
} else { |
667 |
|
|
700 |
$marc_record->[ $marc_record_offset ] = $marc; |
$marc_record->[ $marc_record_offset ] = $marc; |
701 |
} |
} |
702 |
|
|
|
|
|
703 |
warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1); |
warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1); |
704 |
} |
} |
705 |
|
|