From 02c598a7f55f746ab00bd0f528ba2ed506b2b94a Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Thu, 7 Apr 2011 11:33:06 +0200 Subject: [PATCH] Bug #6107 - Problems when duplicate a patron on memberentry.pl --- members/memberentry.pl | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/members/memberentry.pl b/members/memberentry.pl index 52b39b8..c665b6e 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'}); -- 1.6.3.3