Lines 72-85
sub _get_biblio_from_xisbn {
Link Here
|
72 |
return $biblio; |
72 |
return $biblio; |
73 |
} |
73 |
} |
74 |
|
74 |
|
75 |
=head1 get_xisbns($isbn); |
75 |
=head1 get_xisbns($isbn, $biblionumber); |
76 |
|
76 |
|
77 |
=head2 $isbn is an ISBN string |
77 |
=head2 $isbn is an ISBN string |
78 |
|
78 |
|
79 |
=cut |
79 |
=cut |
80 |
|
80 |
|
81 |
sub get_xisbns { |
81 |
sub get_xisbns { |
82 |
my ( $isbn ) = @_; |
82 |
my ( $isbn, $biblionumber ) = @_; |
83 |
my ($response,$thing_response,$syndetics_response,$errors); |
83 |
my ($response,$thing_response,$syndetics_response,$errors); |
84 |
# THINGISBN |
84 |
# THINGISBN |
85 |
if ( C4::Context->preference('ThingISBN') ) { |
85 |
if ( C4::Context->preference('ThingISBN') ) { |
Lines 107-113
sub get_xisbns {
Link Here
|
107 |
next if $unique_xisbns->{ $response_data->{content} }; |
107 |
next if $unique_xisbns->{ $response_data->{content} }; |
108 |
$unique_xisbns->{ $response_data->{content} }++; |
108 |
$unique_xisbns->{ $response_data->{content} }++; |
109 |
my $xbiblio= _get_biblio_from_xisbn($response_data->{content}); |
109 |
my $xbiblio= _get_biblio_from_xisbn($response_data->{content}); |
110 |
push @xisbns, $xbiblio if $xbiblio; |
110 |
push @xisbns, $xbiblio if $xbiblio && $xbiblio->{biblionumber} ne $biblionumber; |
111 |
} |
111 |
} |
112 |
if ( wantarray ) { |
112 |
if ( wantarray ) { |
113 |
return (\@xisbns, $errors); |
113 |
return (\@xisbns, $errors); |