[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.18,1.19
Finlay Thompson
finlayt at users.sourceforge.net
Thu Sep 5 00:51:41 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv16339/C4
Modified Files:
Reserves2.pm
Log Message:
Little bug fixes.
Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** Reserves2.pm 4 Sep 2002 22:31:06 -0000 1.18
--- Reserves2.pm 4 Sep 2002 22:51:39 -0000 1.19
***************
*** 264,268 ****
my $query = "SELECT reserves.priority as priority,
reserves.biblionumber as biblionumber,
! reserves.branchcode as branchcode
FROM reserves,items
WHERE reserves.biblionumber = items.biblionumber
--- 264,269 ----
my $query = "SELECT reserves.priority as priority,
reserves.biblionumber as biblionumber,
! reserves.branchcode as branchcode,
! reserves.timestamp as timestamp
FROM reserves,items
WHERE reserves.biblionumber = items.biblionumber
***************
*** 278,282 ****
my $timestamp = $data->{'timestamp'};
my $q_biblio = $dbh->quote($biblio);
! my $q_timestamp = $dbh->quote($biblio);
# update reserves record....
$query = "UPDATE reserves SET priority = 0, found = 'W', itemnumber = $item
--- 279,284 ----
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
***************
*** 284,287 ****
--- 286,290 ----
AND biblionumber = $q_biblio
AND timestamp = $q_timestamp";
+ warn "Query: ".$query."\n";
$sth = $dbh->prepare($query);
$sth->execute;
More information about the Koha-cvs
mailing list