[Koha-cvs] koha/circ branchoverdues.pl [rel_3_0]
Antoine Farnault
antoine at koha-fr.org
Fri Nov 3 11:17:55 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 06/11/03 10:17:55
Modified files:
circ : branchoverdues.pl
Log message:
removing Date::Manip
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchoverdues.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.1&r2=1.1.2.2
Patches:
Index: branchoverdues.pl
===================================================================
RCS file: /sources/koha/koha/circ/Attic/branchoverdues.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- branchoverdues.pl 20 Oct 2006 10:35:05 -0000 1.1.2.1
+++ branchoverdues.pl 3 Nov 2006 10:17:55 -0000 1.1.2.2
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: branchoverdues.pl,v 1.1.2.1 2006/10/20 10:35:05 alaurin Exp $
+# $Id: branchoverdues.pl,v 1.1.2.2 2006/11/03 10:17:55 toins Exp $
#
# This file is part of Koha.
#
@@ -21,12 +21,11 @@
use C4::Context;
use C4::Output;
use CGI;
-use DBI;
+use C4::Interface::CGI::Output;
use HTML::Template;
use C4::Auth;
use C4::Date;
use C4::Circulation::Circ2;
-use Date::Manip;
use C4::Reserves2;
use C4::Search;
use C4::Koha;
@@ -34,7 +33,7 @@
use Mail::Sendmail; # comment out if not doing e-mail notices
use Getopt::Long;
#use C4::Calendar;
-use Date::Calc;
+#use Date::Calc qw/Today Today_and_Now Now/;
# this module is a new interface, allow to the librarian to check all items on overdues (based on the acountlines type 'FU' )
@@ -106,7 +105,7 @@
my @overduesloop;
my @todayoverduesloop;
my $counter=0;
-my $today=ParseDate("today");
+
my @getoverdues = GetOverduesForBranch($default,$departement);
# filter by departement
@@ -172,4 +171,4 @@
- print "Content-Type: text/html\n\n", $template->output;
\ No newline at end of file
+output_html_with_http_headers $input, $cookie, $template->output;
More information about the Koha-cvs
mailing list