From a44859d082ad97e56dcc6ac771fb7e2104e3f80d Mon Sep 17 00:00:00 2001 From: Jesse Weaver Date: Fri, 18 Dec 2015 10:20:07 -0700 Subject: [PATCH] Bug 14658 - (QA followup) make it easier to grep for these syspref names Signed-off-by: Jonathan Druart Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- opac/opac-memberentry.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl index f3cd3fc414..7132d8b350 100755 --- a/opac/opac-memberentry.pl +++ b/opac/opac-memberentry.pl @@ -254,8 +254,9 @@ sub GetHiddenFields { my ( $mandatory, $action ) = @_; my %hidden_fields; - my $BorrowerUnwantedField = - C4::Context->preference( "PatronSelf" . ucfirst($action) . "BorrowerUnwantedField" ); + my $BorrowerUnwantedField = $action eq 'modification' ? + C4::Context->preference( "PatronSelfModificationBorrowerUnwantedField" ) : + C4::Context->preference( "PatronSelfRegistrationBorrowerUnwantedField" ); my @fields = split( /\|/, $BorrowerUnwantedField ); foreach (@fields) { -- 2.39.5