[koha-Infos] XISBN suite

[Dominique Rouger]

Bonjour,

Je cherche - toujours - a mettre en place la FRBRisation dans Koha
j'ai mis dans les préférences sytèmes :
OPACFRBRizeEditions sur ON
XISBN sur ON
et rien dans ****OCLCAffiliateID
Malgré une âme charitable qui m'a indiqué
qu'il fallait un OCLCAffiliateID

je pense que le pb n'est pas là
Dans /C4/XISBN.pm dans la partie _get_url
j'ai ajouté *2 sorties de warning*
et légèrement /modifiée/ /celle qui existe/)

sub _get_url {
     my ( $url, $service_type ) = @_;
     my $ua = LWP::UserAgent->new( timeout => 2 );

     my $response = $ua->get($url);
*warn "WARNING response is $response $url" ;*
     if ( $response->is_success ) {
         #warn "WARNING could not retrieve $service_type $url" unless 
$response;
*warn "WARNING could not retrieve $service_type $url" ;*
         if ($response) {
             my $xmlsimple = XML::Simple->new();
             my $content   = $xmlsimple->XMLin(
                 $response->content,
                 ForceArray   => [qw(isbn)],
                 ForceContent => 1,
             );
             return $content;
         }
     } else {
         warn "WARNING: URL /$service_type Request Failed/ " . 
$response->status_line . "/$!/\n";
     }

Or dans les logs je n'en retrouve que 2 le premier et le dernier

opac-detail.pl: WARNING response is HTTP::Response=HASH(0xabd3ff8) 
http://xisbn.worldcat.org/webservices/xid/isbn/2707603740?method=getEditions&format=xml&fl=form,year,lang,ed 
at /home/koha/kohaclone/C4/XISBN.pm line 148.
opac-detail.pl: WARNING: URL xisbn Request Failed 500 Can't connect to 
xisbn.worldcat.org:80 (connect: timeout)Connection timed out

Et l'url
http://xisbn.worldcat.org/webservices/xid/isbn/2707603740?method=getEditions&format=xml&fl=form,year,lang,ed
répond très bien

j'en déduis que le problème est dans LWP::UserAgent
/usr/share/perl5/LWP/UserAgent.pm

alors je ne me suis pas démonté et j'ai mis un warning au niveau de la 
fonction appelée
# Now the shortcuts...
#
sub get {
     require HTTP::Request::Common;
     my($self, @parameters) = @_;
     my @suff = $self->_process_colonic_headers(\@parameters,1);
*warn "WARNING sub get self_request $self->request( 
HTTP::Request::Common::GET( @parameters ), @suff )" ;*
     return $self->request( HTTP::Request::Common::GET( @parameters ), 
@suff );
}


et j'ai en retour dans les logs
  opac-detail.pl: WARNING sub get self_request 
LWP::UserAgent=HASH(0xbc035d0)->request( HTTP::Request::Common::GET( 
http://xisbn.worldcat.org/webservices/xid/isbn/2707603740?method=getEditions&format=xml&fl=form,year,lang,ed 
),  ) at /usr/share/perl5/LWP/UserAgent.pm line 426.


Donc le return $self->request( etc) retourne bien quelque chose
mais le if ( $response->is_success ) lui retourne un false !

is_succes, si j'ai bien compris provient de HTML::Response
/usr/share/perl5/HTTP/Response.pm

qui lui même le tiendrait de HTTP::Status::is_success
sub is_success  { HTTP::Status::is_success  (shift->{'_rc'}); }

.... je fatigue un peu là !!

Cordialement
Dominique Rouger

-- 
Dominique Rouger

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Service Commun de Documentation
de l'Université Jean Monnet
Section Sciences

21, Rue Dr Paul Michelon
42023 Saint Etienne Cedex 2

tél 04 77 48 15 93
mélDominique.Rouger at univ-st-etienne.fr

http://scd.univ-st-etienne.fr
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

-------------- section suivante --------------
Une pièce jointe HTML a été nettoyée...
URL: </pipermail/infos/attachments/20110408/6f7f9d9e/attachment.htm>