[Koha-cvs] koha/circ branchoverdues.pl [rel_3_0]

[Antoine Farnault]

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;