|
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 |
- |
|
|