From 7608bee7cfa79b7e54e3863021f8cc6d94950bfc Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 2 May 2003 13:07:14 +0000
Subject: [PATCH] removing warnings

---
 C4/Reserves2.pm | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/C4/Reserves2.pm b/C4/Reserves2.pm
index 461543922b..61dec7a934 100755
--- a/C4/Reserves2.pm
+++ b/C4/Reserves2.pm
@@ -104,7 +104,6 @@ reserves, borrowers, and biblio tables of the Koha database.
 #'
 sub FindReserves {
 	my ($bib,$bor)=@_;
-	warn "bib : $bib , bor : $bor";
 	my $dbh = C4::Context->dbh;
 	# Find the desired items in the reserves
 	my $query="SELECT *,reserves.branchcode,biblio.title AS btitle  FROM reserves,borrowers,biblio ";
@@ -378,7 +377,6 @@ sub FillReserve {
                                 WHERE biblionumber   = $qbiblio
                                   AND borrowernumber = $borr
                                   AND reservedate    = $resdate)";
-	warn "q : $query";
     my $sth=$dbh->prepare($query);
     $sth->execute;
     ($priority) = $sth->fetchrow_array;
@@ -456,13 +454,11 @@ sub ReserveWaiting {
     my $timestamp = $data->{'timestamp'};
     my $q_biblio = $dbh->quote($biblio);
     my $q_timestamp = $dbh->quote($timestamp);
-    warn "Timestamp: ".$timestamp."\n";
 # update reserves record....
     $query = "UPDATE reserves SET priority = 0, found = 'W', itemnumber = $item
                             WHERE borrowernumber = $borr
                               AND biblionumber = $q_biblio
                               AND timestamp = $q_timestamp";
-    warn "Query: ".$query."\n";
     $sth = $dbh->prepare($query);
     $sth->execute;
     $sth->finish;
@@ -786,7 +782,6 @@ sub getreservetitle {
  = $bor and reserveconstraints.reservedate='$date' and
  reserveconstraints.timestamp=$timestamp";
  my $sth=$dbh->prepare($query);
- warn "q : $query";
  $sth->execute;
  my $data=$sth->fetchrow_hashref;
  $sth->finish;
-- 
2.39.5