|
Lines 1595-1601
sub NormalizeISBN {
Link Here
|
| 1595 |
|
1595 |
|
| 1596 |
my $isbn = Business::ISBN->new($string); |
1596 |
my $isbn = Business::ISBN->new($string); |
| 1597 |
|
1597 |
|
| 1598 |
if ( $isbn && $isbn->error != Business::ISBN::BAD_ISBN ) { |
1598 |
if ( $isbn && $isbn->is_valid() ) { |
| 1599 |
|
1599 |
|
| 1600 |
if ( $format eq 'ISBN-10' ) { |
1600 |
if ( $format eq 'ISBN-10' ) { |
| 1601 |
$isbn = $isbn->as_isbn10(); |
1601 |
$isbn = $isbn->as_isbn10(); |
| 1602 |
- |
|
|