[Koha-cvs] koha overdue.pl [rel_2_2]
Henri-Damien LAURENT
laurenthdl at alinto.com
Fri Feb 3 17:05:27 CET 2006
CVSROOT: /cvsroot/koha
Module name: koha
Branch: rel_2_2
Changes by: Henri-Damien LAURENT <hdl at savannah.gnu.org> 06/02/03 16:05:27
Modified files:
. : overdue.pl
Log message:
Adding a query trace for overdue.pl
(seems that some people donot have ALL the results they would like to get) But I tested and get the proper results.
So Waiting for deeper tests.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/overdue.pl.diff?only_with_tag=rel_2_2&tr1=1.9.2.4&tr2=1.9.2.5&r1=text&r2=text
Patches:
Index: koha/overdue.pl
diff -u koha/overdue.pl:1.9.2.4 koha/overdue.pl:1.9.2.5
--- koha/overdue.pl:1.9.2.4 Wed Jan 4 09:29:34 2006
+++ koha/overdue.pl Fri Feb 3 16:05:27 2006
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: overdue.pl,v 1.9.2.4 2006/01/04 09:29:34 hdl Exp $
+# $Id: overdue.pl,v 1.9.2.5 2006/02/03 16:05:27 hdl Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -131,14 +131,13 @@
# my $itemtypefilter=$input->param('itemtype');
# my $borflagsfilter=$input->param('borflags');
# my $branchfilter=$input->param('branch');
-
if ($order eq "borrower"){
$strsth.=" order by borrower,date_due " ;
} else {
$strsth.=" order by date_due,borrower ";
}
my $sth=$dbh->prepare($strsth);
-# warn "".$strsth;
+warn "overdue.pl : query string ".$strsth;
$sth->execute();
my @overduedata;
More information about the Koha-cvs
mailing list