# Suite 330, Boston, MA 02111-1307 USA
use XML::Simple;
-use LWP::Simple;
+#use LWP::Simple;
use C4::Biblio;
use LWP::UserAgent;
);
sub get_biblio_from_xisbn {
- my $xisbn_data = shift;
+ my $xisbn = shift;
my $dbh = C4::Context->dbh;
my $query = "SELECT biblionumber FROM biblioitems WHERE isbn=?";
my $sth = $dbh->prepare($query);
- $sth->execute($xisbn_data->{content});
+ $sth->execute($xisbn);
my $xbib_data = $sth->fetchrow_hashref();
my $xbiblio;
if ($xbib_data->{biblionumber}) {
$xbiblio = GetBiblioData($xbib_data->{biblionumber});
$xbiblio->{items} = GetItemsByBiblioitemnumber($xbib_data->{biblionumber});
- use Data::Dumper;
- warn Dumper($xbiblio->{items});
}
return ($xbiblio);
for my $response_data( @{ $response->{ isbn } } ) {
next if $unique_xisbns->{ $response_data->{content} };
$unique_xisbns->{ $response_data->{content} }++;
- my $xbiblio= get_biblio_from_xisbn($response_data);
+ my $xbiblio= get_biblio_from_xisbn($response_data->{content});
push @xisbns, $xbiblio if $xbiblio; #response_data->{xbiblio}; #->{biblionumber}; # if $xbiblionumber;
}