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

(-)a/C4/Koha.pm (-2 / +5 lines)
Lines 1484-1490 sub _isbn_cleanup { Link Here
1484
            format        => 'ISBN-10',
1484
            format        => 'ISBN-10',
1485
            strip_hyphens => 1,
1485
            strip_hyphens => 1,
1486
        }
1486
        }
1487
    );
1487
    ) if $isbn;
1488
}
1488
}
1489
1489
1490
=head2 NormalizedISBN
1490
=head2 NormalizedISBN
Lines 1511-1516 sub NormalizeISBN { Link Here
1511
    my $strip_hyphens = $params->{strip_hyphens};
1511
    my $strip_hyphens = $params->{strip_hyphens};
1512
    my $format        = $params->{format};
1512
    my $format        = $params->{format};
1513
1513
1514
    return unless $string;
1515
1514
    my $isbn = Business::ISBN->new($string);
1516
    my $isbn = Business::ISBN->new($string);
1515
1517
1516
    if ( $isbn && $isbn->error != Business::ISBN::BAD_ISBN ) {
1518
    if ( $isbn && $isbn->error != Business::ISBN::BAD_ISBN ) {
Lines 1548-1553 sub NormalizeISBN { Link Here
1548
sub GetVariationsOfISBN {
1550
sub GetVariationsOfISBN {
1549
    my ($isbn) = @_;
1551
    my ($isbn) = @_;
1550
1552
1553
    return unless $isbn;
1554
1551
    my @isbns;
1555
    my @isbns;
1552
1556
1553
    push( @isbns, NormalizeISBN({ isbn => $isbn }) );
1557
    push( @isbns, NormalizeISBN({ isbn => $isbn }) );
1554
- 

Return to bug 10500