Lines 106-111
sub get_xisbns {
Link Here
|
106 |
next if $unique_xisbns->{ $response_data->{content} }; |
106 |
next if $unique_xisbns->{ $response_data->{content} }; |
107 |
$unique_xisbns->{ $response_data->{content} }++; |
107 |
$unique_xisbns->{ $response_data->{content} }++; |
108 |
my $xbiblio= _get_biblio_from_xisbn($response_data->{content}); |
108 |
my $xbiblio= _get_biblio_from_xisbn($response_data->{content}); |
|
|
109 |
next unless $xbiblio; |
110 |
next if $xbiblio->{normalized_isbn} && $xbiblio->{normalized_isbn} eq $isbn; |
109 |
push @xisbns, $xbiblio if $xbiblio && $xbiblio->{biblionumber} ne $biblionumber; |
111 |
push @xisbns, $xbiblio if $xbiblio && $xbiblio->{biblionumber} ne $biblionumber; |
110 |
} |
112 |
} |
111 |
if ( wantarray ) { |
113 |
if ( wantarray ) { |
112 |
- |
|
|