[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha overdue.pl [rel_2_2]
From: |
Waylon Robertson |
Subject: |
[Koha-cvs] koha overdue.pl [rel_2_2] |
Date: |
Sat, 03 Feb 2007 08:38:29 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Waylon Robertson <genji> 07/02/03 08:38:29
Modified files:
. : overdue.pl
Log message:
Today's date was being formatted before being compared, in the query.
fixed. now overdues work.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/overdue.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.9.2.13&r2=1.9.2.14
Patches:
Index: overdue.pl
===================================================================
RCS file: /sources/koha/koha/Attic/overdue.pl,v
retrieving revision 1.9.2.13
retrieving revision 1.9.2.14
diff -u -b -r1.9.2.13 -r1.9.2.14
--- overdue.pl 19 Jan 2007 09:33:48 -0000 1.9.2.13
+++ overdue.pl 3 Feb 2007 08:38:29 -0000 1.9.2.14
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: overdue.pl,v 1.9.2.13 2007/01/19 09:33:48 rangi Exp $
+# $Id: overdue.pl,v 1.9.2.14 2007/02/03 08:38:29 genji Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -117,7 +117,6 @@
my $author;
my @datearr = localtime(time());
my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d",
($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
-$todaysdate=format_date($todaysdate);
my $dbh = C4::Context->dbh;
$bornamefilter =~s/\*/\%/g;
@@ -137,18 +136,13 @@
$strsth.=" && biblioitems.itemtype = '".$itemtypefilter."' "
if($itemtypefilter) ;
$strsth.=" && borrowers.flags = '".$borflagsfilter."' " if ($borflagsfilter ne
" ") ;
$strsth.=" && issues.branchcode = '".$branchfilter."' " if($branchfilter) ;
-# my $bornamefilter=$input->param('borname');
-# my $borcatfilter=$input->param('borcat');
-# 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 "overdue.pl : query string ".$strsth;
+#warn "overdue.pl : query string ".$strsth;
$sth->execute();
my @overduedata;
@@ -176,6 +170,7 @@
}
$sth->finish;
+$todaysdate=format_date($todaysdate);
$template->param(todaysdate => $todaysdate,
overdueloop => address@hidden,
intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha overdue.pl [rel_2_2],
Waylon Robertson <=