From 01235f9d5e9340a7d91c17923dd3b3a4e1c174b3 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 5 Nov 2021 15:00:04 +0000 Subject: [PATCH] Bug 29321: Remove a last without loop context Content-Type: text/plain; charset=utf-8 This reads better when converted to regular if. Note that last within such a block is allowed in Perl, but it feels better to use it only in a loop context. Test plan: Read the patch ;) Bonus: Test if you enter the block by using pref OPACSuggestionMandatoryFields when adding a suggestion from opac. Signed-off-by: Marcel de Rooy --- opac/opac-suggestions.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl index 9c965041ce..b116b9d24d 100755 --- a/opac/opac-suggestions.pl +++ b/opac/opac-suggestions.pl @@ -245,8 +245,7 @@ foreach my $suggestion(@$suggestions_loop) { my $patron_reason_loop = GetAuthorisedValues("OPAC_SUG", "opac"); my @mandatoryfields; -{ - last unless ($op eq 'add'); +if( $op eq 'add' ) { my $fldsreq_sp = C4::Context->preference("OPACSuggestionMandatoryFields") || 'title'; @mandatoryfields = sort split(/\s*\,\s*/, $fldsreq_sp); foreach (@mandatoryfields) { -- 2.20.1