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