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