[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.30,1.31

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv11756/C4

Modified Files:
        Reserves2.pm 
Log Message:
removing warnings

Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -r1.30 -r1.31
*** Reserves2.pm        24 Apr 2003 16:29:09 -0000      1.30
--- Reserves2.pm        2 May 2003 13:07:14 -0000       1.31
***************
*** 105,109 ****
  sub FindReserves {
        my ($bib,$bor)address@hidden;
-       warn "bib : $bib , bor : $bor";
        my $dbh = C4::Context->dbh;
        # Find the desired items in the reserves
--- 105,108 ----
***************
*** 379,383 ****
                                    AND borrowernumber = $borr
                                    AND reservedate    = $resdate)";
-       warn "q : $query";
      my $sth=$dbh->prepare($query);
      $sth->execute;
--- 378,381 ----
***************
*** 457,461 ****
      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
--- 455,458 ----
***************
*** 463,467 ****
                                AND biblionumber = $q_biblio
                                AND timestamp = $q_timestamp";
-     warn "Query: ".$query."\n";
      $sth = $dbh->prepare($query);
      $sth->execute;
--- 460,463 ----
***************
*** 787,791 ****
   reserveconstraints.timestamp=$timestamp";
   my $sth=$dbh->prepare($query);
-  warn "q : $query";
   $sth->execute;
   my $data=$sth->fetchrow_hashref;
--- 783,786 ----