[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.20.2.1,1.20.2.2
Andrew Arensburger
arensb at users.sourceforge.net
Sat Oct 5 08:13:35 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv31908
Modified Files:
Tag: arensb-context
Reserves2.pm
Log Message:
Added a whole mess of FIXME comments.
Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.20.2.1
retrieving revision 1.20.2.2
diff -C2 -r1.20.2.1 -r1.20.2.2
*** Reserves2.pm 4 Oct 2002 02:25:50 -0000 1.20.2.1
--- Reserves2.pm 5 Oct 2002 06:13:33 -0000 1.20.2.2
***************
*** 24,27 ****
--- 24,29 ----
use C4::Context;
use C4::Search;
+ # FIXME - C4::Reserves2 uses C4::Search, which uses C4::Reserves2.
+ # So Perl complains that all of the functions here get redefined.
#use C4::Accounts;
***************
*** 180,183 ****
--- 182,186 ----
$sth->finish;
# update the database, removing the record...
+ # FIXME - There's already a $query in this scope.
my $query = "update reserves set cancellationdate = now(),
found = Null,
***************
*** 188,191 ****
--- 191,195 ----
and (found <> 'F' or found is NULL)";
# FIXME - There's already a $query in this scope.
+ # FIXME - There's already a $sth in this scope.
my $sth = $dbh->prepare($query);
# FIXME - There's already a $sth in this scope.
***************
*** 215,218 ****
--- 219,223 ----
$sth->finish;
# update the database...
+ # FIXME - There's already a $query in this scope.
my $query = "UPDATE reserves SET found = 'F',
priority = 0
***************
*** 221,224 ****
--- 226,230 ----
AND borrowernumber = $borr";
# FIXME - There's already a $query in this scope.
+ # FIXME - There's already a $sth in this scope.
my $sth = $dbh->prepare($query);
# FIXME - There's already a $sth in this scope.
More information about the Koha-cvs
mailing list