[Koha-cvs] CVS: koha/misc/amazonratings get_ratings.pl,1.1,1.2

[Chris Cormack]

Update of /cvsroot/koha/koha/misc/amazonratings
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4665

Modified Files:
        get_ratings.pl 
Log Message:
Bugfix, now it actually does whats its supposed to.


Index: get_ratings.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/amazonratings/get_ratings.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** get_ratings.pl      6 Mar 2004 07:45:33 -0000       1.1
--- get_ratings.pl      6 Mar 2004 07:55:35 -0000       1.2
***************
*** 13,63 ****
  use C4::Context;
  
! my 
$url="http://www.amazon.com/exec/obidos/search-handle-url/index%3Dbooks%26field-isbn%3D";;
  
! my $dbh=C4::Context->dbh();
! 
! my $query="SELECT isbn,biblioitemnumber,biblionumber FROM biblioitems";
! my $sth=$dbh->prepare($query);
  $sth->execute();
! while (my $data=$sth->fetchrow_hashref()){
!   $data->{'isbn'}=~ s/\-//g;
!     $data->{'isbn'}=~ s/ +//g;
!     
! # append isbn 
! # isbn must appear without spaces or -
! 
! $url.=$data->{'isbn'};
! my $ua = LWP::UserAgent->new;
! my $content = $ua->get($url)->content;
! #print $content;
! 
! 
! my $rating;
! 
! if ($content=~ /alt="(.*?) out of 5 stars"/){
!     $rating=$1;
!     
!                }
! if ($rating){
!     # first check we dont already have a rating, if so, and its different 
update it
!     # otherwise insert a new rating
!     my $query2="SELECT * FROM ratings WHERE biblioitemnumber=?";
!     my $sth2=$dbh->prepare($query2);
!     $sth2->execute($data->{'biblioitemnumber'});
!     if (my $ratings=$sth2->fetchrow_hashref()){
!       if ($rating ne $ratings->{'rating'}){
!           my $query3="UPDATE ratings SET rating=? WHERE biblioitemnumber=?";
!           my $sth3=$dbh->prepare($query3);
!           $sth3->execute($rating,$data->{'biblioitemnumber'});
!           $sth3->finish();
!           }
!       }
!     else {
!       my $query3="INSERT INTO ratings (rating,biblioitemnumber,biblionumber) 
VALUES (?,?,?)";
!       my $sth3=$dbh->prepare($query3);
!       
$sth3->execute($rating,$data->{'biblioitemnumber'},$data->{'biblionumber'});
!       $sth3->finish();
!       }
!     $sth2->finish();
      }
      }
--- 13,70 ----
  use C4::Context;
  
! my $dbh = C4::Context->dbh();
  
! my $query =
! "SELECT isbn,biblioitemnumber,biblionumber FROM biblioitems where isbn is NOT 
NULL and isbn <> ''
!   group by isbn";
! my $sth = $dbh->prepare($query);
  $sth->execute();
! while ( my $data = $sth->fetchrow_hashref() ) {
!     $data->{'isbn'} =~ s/\-//g;
!     $data->{'isbn'} =~ s/ +//g;
! 
!     # append isbn 
!     # isbn must appear without spaces or -
!     my $url = 
"http://www.amazon.com/exec/obidos/search-handle-url/index%3Dbooks%26field-isbn%3D";;
!     $url .= $data->{'isbn'};
!     my $ua      = LWP::UserAgent->new;
!     my $content = $ua->get($url)->content;
! 
!     #print $content;
! 
!     my $rating;
! 
!     if ( $content =~ /alt="(.*?) out of 5 stars"/ ) {
!         $rating = $1;
! 
      }
+     if ($rating) {
+ 
+        # first check we dont already have a rating, if so, and its different 
update it
+         # otherwise insert a new rating
+         my $query2 = "SELECT * FROM ratings WHERE biblioitemnumber=?";
+         my $sth2   = $dbh->prepare($query2);
+         $sth2->execute( $data->{'biblioitemnumber'} );
+         if ( my $ratings = $sth2->fetchrow_hashref() ) {
+             if ( $rating ne $ratings->{'rating'} ) {
+                 my $query3 =
+                   "UPDATE ratings SET rating=? WHERE biblioitemnumber=?";
+                 my $sth3 = $dbh->prepare($query3);
+                 $sth3->execute( $rating, $data->{'biblioitemnumber'} );
+                 $sth3->finish();
+             }
+         }
+         else {
+             my $query3 =
+ "INSERT INTO ratings (rating,biblioitemnumber,biblionumber) VALUES (?,?,?)";
+             my $sth3 = $dbh->prepare($query3);
+             $sth3->execute(
+                 $rating, $data->{'biblioitemnumber'},
+                 $data->{'biblionumber'}
+             );
+             $sth3->finish();
+         }
+         $sth2->finish();
+ 
      }
+ }