Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

removing Date::Manip usage

Browse source 
Signed-off-by: Chris Cormack <crc@liblime.com>
This commit is contained in:
Henri-Damien LAURENT 2007-08-20 15:45:09 +02:00 committed by Chris Cormack
parent 054d2b0d19
commit 5c7b0e2889
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
members/moremember.pl
View file

@ -34,7 +34,6 @@
use strict;
use CGI;
use Date::Manip;
use C4::Auth;
use C4::Context;
use C4::Output;
@ -203,12 +202,12 @@ my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
#
my ( $count, $issue ) = GetPendingIssues($borrowernumber);
my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} );
my $today = ParseDate('today');
my $today = POSIX::strftime("%Y%m%d", localtime);
my @issuedata;
my $totalprice = 0;
my $toggle = 0;
for ( my $i = 0 ; $i < $count ; $i++ ) {
my $datedue = ParseDate( $issue->[$i]{'date_due'} );
my $datedue = $issue->[$i]{'date_due'};
$issue->[$i]{'date_due'} = format_date( $issue->[$i]{'date_due'} );
my %row = %{ $issue->[$i] };
$totalprice += $issue->[$i]{'replacementprice'};