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

(-)a/C4/Koha.pm (-1 / +1 lines)
Lines 1330-1335 sub _isbn_cleanup ($) { Link Here
1330
    my $isbn = Business::ISBN->new( shift );
1330
    my $isbn = Business::ISBN->new( shift );
1331
    return undef unless $isbn;
1331
    return undef unless $isbn;
1332
    $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1332
    $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1333
    return undef unless $isbn;
1333
    $isbn = $isbn->as_string;
1334
    $isbn = $isbn->as_string;
1334
    $isbn =~ s/-//g;
1335
    $isbn =~ s/-//g;
1335
    return $isbn;
1336
    return $isbn;
1336
- 

Return to bug 4305