From 4909ebf455ed22845a96ec4f3711483e0a761d3e Mon Sep 17 00:00:00 2001
From: Jesse Weaver <pianohacker@gmail.com>
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 <jonathan.druart@bugs.koha-community.org>
---
 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 1fe0bb3..c4ed0b1 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.6.2