[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.33,1.34
From: |
Chris Cormack |
Subject: |
[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.33,1.34 |
Date: |
Tue, 17 Jun 2003 01:48:26 -0700 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv25354/C4
Modified Files:
Reserves2.pm
Log Message:
Fixing a bug ine sql
Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -r1.33 -r1.34
*** Reserves2.pm 19 May 2003 13:59:12 -0000 1.33
--- Reserves2.pm 17 Jun 2003 08:48:24 -0000 1.34
***************
*** 367,373 ****
# fill in a reserve record....
# FIXME - Remove some of the redundancy here
! my $biblio = $res->{'biblionumber'}; my $qbiblio = $dbh->quote($biblio);
! my $borr = $res->{'borrowernumber'}; $borr = $dbh->quote($borr);
! my $resdate = $res->{'reservedate'}; $resdate = $dbh->quote($resdate);
# get the priority on this record....
--- 367,373 ----
# fill in a reserve record....
# FIXME - Remove some of the redundancy here
! my $biblio = $res->{'biblionumber'}; my $qbiblio =$biblio;
! my $borr = $res->{'borrowernumber'};
! my $resdate = $res->{'reservedate'};
# get the priority on this record....
***************
*** 375,383 ****
{
my $query = "SELECT priority FROM reserves
! WHERE biblionumber = $qbiblio
! AND borrowernumber = $borr
! AND reservedate = $resdate)";
my $sth=$dbh->prepare($query);
! $sth->execute;
($priority) = $sth->fetchrow_array;
$sth->finish;
--- 375,383 ----
{
my $query = "SELECT priority FROM reserves
! WHERE biblionumber = ?
! AND borrowernumber = ?
! AND reservedate = ?";
my $sth=$dbh->prepare($query);
! $sth->execute($qbiblio,$borr,$resdate);
($priority) = $sth->fetchrow_array;
$sth->finish;
***************
*** 388,396 ****
my $query = "UPDATE reserves SET found = 'F',
priority = 0
! WHERE biblionumber = $qbiblio
! AND reservedate = $resdate
! AND borrowernumber = $borr";
my $sth = $dbh->prepare($query);
! $sth->execute;
$sth->finish;
}
--- 388,396 ----
my $query = "UPDATE reserves SET found = 'F',
priority = 0
! WHERE biblionumber = ?
! AND reservedate = ?
! AND borrowernumber = ?";
my $sth = $dbh->prepare($query);
! $sth->execute($qbiblio,$resdate,$borr);
$sth->finish;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Reserves2.pm,1.33,1.34,
Chris Cormack <=