X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FReview.pm;h=0c27833090d43f2b4d10727ba6286f65aaf4f462;hb=48fe93e945a3fcb55adaa17a44bd5963c5a9f3f4;hp=f5b97e6c02f14ee5e6e0be25690e47ec9427fe5b;hpb=f3b57dfb023f81c57719ed31f91ada40a40fb165;p=koha-ffzg.git

diff --git a/C4/Review.pm b/C4/Review.pm
index f5b97e6c02..0c27833090 100644
--- a/C4/Review.pm
+++ b/C4/Review.pm
@@ -27,7 +27,7 @@ use vars qw(@ISA @EXPORT);
 BEGIN {
     require Exporter;
     @ISA    = qw(Exporter);
-    @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber);
+    @EXPORT = qw(savereview updatereview numberofreviews numberofreviewsbybiblionumber);
 }
 
 =head1 NAME
@@ -38,7 +38,6 @@ C4::Review - Perl Module containing routines for dealing with reviews of items
 
   use C4::Review;
 
-  my $review=getreview($biblionumber,$borrowernumber);
   savereview($biblionumber,$borrowernumber,$review);
   updatereview($biblionumber,$borrowernumber,$review);
   my $count=numberofreviews($status);
@@ -50,23 +49,6 @@ Review.pm provides many routines for manipulating reviews.
 
 =head1 FUNCTIONS
 
-=head2 getreview
-
-  $review = getreview($biblionumber,$borrowernumber);
-
-Takes a borrowernumber and a biblionumber and returns the review of that biblio
-
-=cut
-
-sub getreview {
-    my ( $biblionumber, $borrowernumber ) = @_;
-    my $dbh   = C4::Context->dbh;
-    my $query = "SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";
-    my $sth   = $dbh->prepare($query);
-    $sth->execute( $biblionumber, $borrowernumber );
-    return $sth->fetchrow_hashref();
-}
-
 =head2 savereview
 
   savereview($biblionumber,$borrowernumber, $review);