X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;ds=sidebyside;f=C4%2FXISBN.pm;h=8616c955fc693d08de0891e1a56bda521da182bf;hb=050f932b3b579fb05b6ea6834441ae93ed935316;hp=aa9687c2decad3da962348e2f76b17c827d94d16;hpb=593a7d8e6acc92a8bc7842d1beda2983b570613e;p=koha_fer diff --git a/C4/XISBN.pm b/C4/XISBN.pm index aa9687c2de..8616c955fc 100644 --- a/C4/XISBN.pm +++ b/C4/XISBN.pm @@ -20,7 +20,6 @@ package C4::XISBN; use XML::Simple; #use LWP::Simple; use C4::Biblio; -use C4::Items; use C4::Koha; use C4::External::Syndetics qw(get_syndetics_editions); use LWP::UserAgent; @@ -32,7 +31,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; - $VERSION = 3.01; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw( &get_xisbns @@ -72,7 +71,6 @@ sub _get_biblio_from_xisbn { if ($xbib_data->{biblionumber}) { $xbiblio = GetBiblioData($xbib_data->{biblionumber}); $xbiblio->{normalized_isbn} = GetNormalizedISBN($xbiblio->{isbn}); - $xbiblio->{items} = GetItemsByBiblioitemnumber($xbib_data->{biblionumber}); } return ($xbiblio); } @@ -85,7 +83,7 @@ sub _get_biblio_from_xisbn { sub get_xisbns { my ( $isbn ) = @_; - my ($response,$thing_response,$xisbn_response,$gapines_response,$syndetics_response); + my ($response,$thing_response,$xisbn_response,$syndetics_response); # THINGISBN if ( C4::Context->preference('ThingISBN') ) { my $url = "http://www.librarything.com/api/thingISBN/".$isbn; @@ -104,7 +102,7 @@ sub get_xisbns { # XISBN if ( C4::Context->preference('XISBN') ) { my $affiliate_id=C4::Context->preference('OCLCAffiliateID'); - my $limit = C4::Context->preference('XISBNDailyLimit') || 499; + my $limit = C4::Context->preference('XISBNDailyLimit') || 999; my $reached_limit = _service_throttle('xisbn',$limit); my $url = "http://xisbn.worldcat.org/webservices/xid/isbn/".$isbn."?method=getEditions&format=xml&fl=form,year,lang,ed"; $url.="&ai=".$affiliate_id if $affiliate_id; @@ -113,12 +111,7 @@ sub get_xisbns { } } - # PINES ISBN (Experimental) - #if ( C4::Context->preference('PINESISBN') ) { - # my $url = "http://www.librarything.com/api/thingISBN/".$isbn; - # $gapines_response = _get_url($url,'thingisbn'); - #} - $response->{isbn} = [ @{ $xisbn_response->{isbn} or [] }, @{ $syndetics_response->{isbn} or [] }, @{ $thing_response->{isbn} or [] }, @{ $gapines_response->{isbn} or [] } ]; + $response->{isbn} = [ @{ $xisbn_response->{isbn} or [] }, @{ $syndetics_response->{isbn} or [] }, @{ $thing_response->{isbn} or [] } ]; my @xisbns; my $unique_xisbns; # a hashref @@ -185,6 +178,8 @@ __END__ =head1 NOTES +=cut + =head1 AUTHOR Joshua Ferraro