|
Lines 1350-1363
sub _normalize_match_point {
Link Here
|
| 1350 |
return $normalized_match_point; |
1350 |
return $normalized_match_point; |
| 1351 |
} |
1351 |
} |
| 1352 |
|
1352 |
|
| 1353 |
sub _isbn_cleanup ($) { |
1353 |
sub _isbn_cleanup { |
| 1354 |
my $isbn = Business::ISBN->new( shift ); |
1354 |
my $isbn = Business::ISBN->new( $_[0] ); |
| 1355 |
return undef unless $isbn; |
1355 |
if ( $isbn ) { |
| 1356 |
$isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13'; |
1356 |
$isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13'; |
| 1357 |
return undef unless $isbn; |
1357 |
if (defined $isbn) { |
| 1358 |
$isbn = $isbn->as_string; |
1358 |
return $isbn->as_string([]); |
| 1359 |
$isbn =~ s/-//g; |
1359 |
} |
| 1360 |
return $isbn; |
1360 |
} |
|
|
1361 |
return; |
| 1361 |
} |
1362 |
} |
| 1362 |
|
1363 |
|
| 1363 |
1; |
1364 |
1; |
| 1364 |
- |
|
|