From 5c7b0e28894e0df56480154ffa9182e059dda3e3 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien@koha-fr.org>
Date: Mon, 20 Aug 2007 15:45:09 +0200
Subject: [PATCH] removing Date::Manip usage

Signed-off-by: Chris Cormack <crc@liblime.com>
---
 members/moremember.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/members/moremember.pl b/members/moremember.pl
index 9605a916ac..95ac2a070c 100755
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -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'};
-- 
2.39.5