[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.30,1.31
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.30,1.31 |
Date: |
Fri, 02 May 2003 06:07:17 -0700 |
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 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Reserves2.pm,1.30,1.31,
Paul POULAIN <=