[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.30,1.31
Paul POULAIN
tipaul at users.sourceforge.net
Fri May 2 15:07:17 CEST 2003
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)=@_;
- 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 ----
More information about the Koha-cvs
mailing list