|
Lines 898-904
sub _check_for_existing_bib {
Link Here
|
| 898 |
$isbn =~ s/\-//xmsg; |
898 |
$isbn =~ s/\-//xmsg; |
| 899 |
if ( $isbn =~ m/(\d{13})/xms ) { |
899 |
if ( $isbn =~ m/(\d{13})/xms ) { |
| 900 |
my $b_isbn = Business::ISBN->new($1); |
900 |
my $b_isbn = Business::ISBN->new($1); |
| 901 |
if ( $b_isbn && $b_isbn->is_valid ) { |
901 |
if ( $b_isbn && $b_isbn->is_valid && $b_isbn->as_isbn10 ) { |
| 902 |
$search_isbn = $b_isbn->as_isbn10->as_string( [] ); |
902 |
$search_isbn = $b_isbn->as_isbn10->as_string( [] ); |
| 903 |
} |
903 |
} |
| 904 |
|
904 |
|
| 905 |
- |
|
|