From 52ff3ca6ec6dbb801f27f6de84747032828ad004 Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Thu, 7 Apr 2011 12:05:27 +0200 Subject: [PATCH] Bug #6107 - Problems when duplicate a patron on memberentry.pl MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Stéphane Delaune Signed-off-by: Chris Cormack --- members/memberentry.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/members/memberentry.pl b/members/memberentry.pl index 52b39b82ea..c665b6e957 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -619,6 +619,10 @@ if ($nok) { if (!defined($data{'dateenrolled'}) or $data{'dateenrolled'} eq ''){ $data{'dateenrolled'}=C4::Dates->today('iso'); } +if ( $op eq 'duplicate' ) { + $data{'dateenrolled'} = C4::Dates->today('iso'); + $data{'dateexpiry'} = GetExpiryDate( $data{'categorycode'}, $data{'dateenrolled'} ); +} if (C4::Context->preference('uppercasesurnames')) { $data{'surname'} =uc($data{'surname'} ); $data{'contactname'}=uc($data{'contactname'}); -- 2.39.5