Dates.pm -- Comment and perldoc cleanup.

[koha_fer] / C4 / XISBN.pm

diff --git a/C4/XISBN.pm b/C4/XISBN.pm
index ac5a2b7..ab934a1 100755 (executable)
--- a/C4/XISBN.pm
+++ b/C4/XISBN.pm
@@ -18,7 +18,7 @@ package C4::XISBN;
 # Suite 330, Boston, MA  02111-1307 USA
 
 use XML::Simple;
-use LWP::Simple;
+#use LWP::Simple;
 use C4::Biblio;
 
 use LWP::UserAgent;
@@ -47,18 +47,16 @@ This module provides facilities for retrieving XISBN, ThingISBN and XISBN conten
 );
 
 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);
 
@@ -103,7 +101,7 @@ sub get_xisbns {
        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;
         
        }