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