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