diff --git a/members/memberentry.pl b/members/memberentry.pl index 166302006b..7553d1a07e 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -747,7 +747,7 @@ foreach (qw(dateenrolled dateexpiry dateofbirth)) { } if (C4::Context->preference('ExtendedPatronAttributes')) { - patron_attributes_form($template, $borrowernumber); + patron_attributes_form($template, $borrowernumber, $op); } if (C4::Context->preference('EnhancedMessagingPreferences')) { @@ -846,6 +846,7 @@ sub parse_extended_patron_attributes { sub patron_attributes_form { my $template = shift; my $borrowernumber = shift; + my $op = shift; my @types = C4::Members::AttributeTypes::GetAttributeTypes(); if (scalar(@types) == 0) { @@ -885,6 +886,7 @@ sub patron_attributes_form { $newentry->{auth_val_loop} = GetAuthorisedValues($attr_type->authorised_value_category(), $attr->{value}); } $i++; + undef $newentry->{value} if ($attr_type->unique_id() && $op eq 'duplicate'); $newentry->{form_id} = "patron_attr_$i"; push @{$items_by_class{$attr_type->class()}}, $newentry; }