From 52ff3ca6ec6dbb801f27f6de84747032828ad004 Mon Sep 17 00:00:00 2001
From: Alex Arnaud <alex.arnaud@biblibre.com>
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 <stephane.delaune@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 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.2