adding famfamfam iconset, improving isbn for amazon content, etc.

[koha_gimpoz] / C4 / XISBN.pm

diff --git a/C4/XISBN.pm b/C4/XISBN.pm
index 79b50f9..1a177c1 100644 (file)
--- a/C4/XISBN.pm
+++ b/C4/XISBN.pm
@@ -35,9 +35,24 @@ BEGIN {
        @EXPORT_OK = qw(
                &get_xisbns
                &get_biblio_from_xisbn
+        &get_biblionumber_from_isbn
        );
 }
 
+sub get_biblionumber_from_isbn {
+    my $isbn = shift;
+    $isbn =~ /(\d*[X]*)/;
+    $isbn = $1;
+    my @biblionumbers;
+    my $dbh=C4::Context->dbh;
+    my $query = "SELECT biblionumber FROM biblioitems WHERE isbn=?";
+    my $sth = $dbh->prepare($query);
+    $sth->execute($isbn);
+    while ( my $biblionumber = $sth->fetchrow_hashref() ) {
+        push (@biblionumbers, $biblionumber);
+    }
+    return \@biblionumbers;
+}
 =head1 NAME
 
 C4::XISBN - Functions for retrieving XISBN content in Koha
@@ -58,6 +73,8 @@ sub get_biblio_from_xisbn {
     my $xbiblio;
     if ($xbib_data->{biblionumber}) {
         $xbiblio = GetBiblioData($xbib_data->{biblionumber});
+        $xbiblio->{isbn} =~ /(\d*[X]*)/;
+        $xbiblio->{amazonisbn} = $1;
         $xbiblio->{items} = GetItemsByBiblioitemnumber($xbib_data->{biblionumber});
     }
     return ($xbiblio);
@@ -102,6 +119,8 @@ sub get_xisbns {
 
     # loop through each ISBN and scope to the local collection
     for my $response_data( @{ $response->{ isbn } } ) {
+        next if $response_data->{'content'} eq $isbn;
+        next if $isbn eq $response_data;
         next if $unique_xisbns->{ $response_data->{content} };
         $unique_xisbns->{ $response_data->{content} }++;
         my $xbiblio= get_biblio_from_xisbn($response_data->{content});