X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=members%2Fmemberentry.pl;h=c665b6e9574002513e83fba941571b374b54dac6;hb=97446f86ced2c2d6d4d7a11b97ed81a5a0a25d95;hp=52b39b82ea15af38873ff0ed7fea4e8cfc0fc89c;hpb=b00c36989f2c480263478d358e4fcf670d047331;p=koha_fer

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'});