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