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

(-)a/C4/Koha.pm (-9 / +9 lines)
Lines 1350-1363 sub _normalize_match_point { Link Here
1350
    return $normalized_match_point;
1350
    return $normalized_match_point;
1351
}
1351
}
1352
1352
1353
sub _isbn_cleanup ($) {
1353
sub _isbn_cleanup {
1354
    my $isbn = Business::ISBN->new( shift );
1354
    my $isbn = Business::ISBN->new( $_[0] );
1355
    return undef unless $isbn;
1355
    if ( $isbn ) {
1356
    $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1356
        $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1357
    return undef unless $isbn;
1357
        if (defined $isbn) {
1358
    $isbn = $isbn->as_string;
1358
            return $isbn->as_string([]);
1359
    $isbn =~ s/-//g;
1359
        }
1360
    return $isbn;
1360
    }
1361
    return;
1361
}
1362
}
1362
1363
1363
1;
1364
1;
1364
- 

Return to bug 4305