View | Details | Raw Unified | Return to bug 20811
Collapse All | Expand All

(-)a/misc/migration_tools/bulkmarcimport.pl (-4 / +3 lines)
Lines 296-306 RECORD: while ( ) { Link Here
296
    &$localcust($record) if $localcust;
296
    &$localcust($record) if $localcust;
297
    my $isbn;
297
    my $isbn;
298
    # remove trailing - in isbn (only for biblios, of course)
298
    # remove trailing - in isbn (only for biblios, of course)
299
    if ($biblios && $cleanisbn) {
299
    if( $biblios ) {
300
        my $tag = $marcFlavour eq 'UNIMARC' ? '010' : '020';
300
        my $tag = $marcFlavour eq 'UNIMARC' ? '010' : '020';
301
        my $field = $record->field($tag);
301
        my $field = $record->field($tag);
302
        my $isbn = $field && $field->subfield('a');
302
        $isbn = $field && $field->subfield('a');
303
        if ( $isbn ) {
303
        if ( $isbn && $cleanisbn ) {
304
            $isbn =~ s/-//g;
304
            $isbn =~ s/-//g;
305
            $field->update('a' => $isbn);
305
            $field->update('a' => $isbn);
306
        }
306
        }
307
- 

Return to bug 20811