From abbb56d11ee23a18a574b8637008d352782c0c56 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 31 Aug 2021 15:55:15 +0200 Subject: [PATCH] Bug 28929: [SIGNED_OFF] Prevent flags to be sent during selfreg Content-Type: text/plain; charset=utf-8 Signed-off-by: Marcel de Rooy Tested OPAC and staff side. Prevents mangling flags column. --- members/memberentry.pl | 1 + opac/opac-memberentry.pl | 1 + 2 files changed, 2 insertions(+) diff --git a/members/memberentry.pl b/members/memberentry.pl index 5844b9c3f9..c9460583af 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -215,6 +215,7 @@ if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) # remove keys from %newdata that is not part of patron's attributes { my @keys_to_delete = ( + qr/^flags$/, qr/^BorrowerMandatoryField$/, qr/^category_type$/, qr/^check_member$/, diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl index 8945cc339b..c940a6e1af 100755 --- a/opac/opac-memberentry.pl +++ b/opac/opac-memberentry.pl @@ -522,6 +522,7 @@ sub ParseCgiForBorrower { # Replace checkbox 'agreed' by datetime in gdpr_proc_consent $borrower{gdpr_proc_consent} = dt_from_string if $borrower{gdpr_proc_consent} && $borrower{gdpr_proc_consent} eq 'agreed'; + delete $borrower{flags}; return %borrower; } -- 2.20.1