From f0cb57d89dd7359dd6a63dddadd8fbdba2940579 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Fri, 15 Jan 2021 11:27:47 +0100
Subject: [PATCH] Bug 27413: Restore debarred and debarredcomment to batch
patron mod tools
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
It was added by bug 13552 but removed by 19793.
Test plan:
Update patron in a batch and confirm that you can modify the restriction
expiration and comment.
Signed-off-by: Joonas Kylmälä <joonas.kylmala@helsinki.fi>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
tools/modborrowers.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl
index 5a0193f75b..3a1bd5594f 100755
--- a/tools/modborrowers.pl
+++ b/tools/modborrowers.pl
@@ -321,7 +321,7 @@ if ( $op eq 'do' ) {
my @disabled = $input->multi_param('disable_input');
my $infos;
- for my $field ( qw/surname firstname branchcode categorycode streetnumber address address2 city state zipcode country email phone mobile sort1 sort2 dateenrolled dateexpiry borrowernotes opacnote/ ) {
+ for my $field ( qw/surname firstname branchcode categorycode streetnumber address address2 city state zipcode country email phone mobile sort1 sort2 dateenrolled dateexpiry borrowernotes opacnote debarred debarredcomment/ ) {
my $value = $input->param($field);
$infos->{$field} = $value if $value;
$infos->{$field} = "" if grep { $_ eq $field } @disabled;
--
2.11.0