From 4a90619e583be270dd4e581057a2fc30f48c4537 Mon Sep 17 00:00:00 2001 From: Josef Moravec Date: Fri, 2 Mar 2018 10:13:00 +0000 Subject: [PATCH] Bug 20323: Fix batch patron modification tool Test plan: 1) Go to Tools -> Batch patrons modification 2) Select some patrons and try to change any field --> without patch - it exploads with log: Can't call method "category" on unblessed reference at /home/vagrant/kohaclone/tools/modborrowers.pl --> with patch - the modification is properly made Signed-off-by: Roch D'Amour Signed-off-by: Katrin Fischer Signed-off-by: Nick Clemens --- tools/modborrowers.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl index 7e51a5a5e0..586ae53e53 100755 --- a/tools/modborrowers.pl +++ b/tools/modborrowers.pl @@ -339,8 +339,9 @@ if ( $op eq 'do' ) { for my $borrowernumber ( @borrowernumbers ) { my $patron = Koha::Patrons->find( $borrowernumber ); if ( $patron ) { + my $category_description = $patron->category->description; $patron = $patron->unblessed; - $patron->{category_description} = $patron->category->description; + $patron->{category_description} = $category_description; $patron->{patron_attributes} = C4::Members::Attributes::GetBorrowerAttributes( $patron->{borrowernumber} ); $max_nb_attr = scalar( @{ $patron->{patron_attributes} } ) if scalar( @{ $patron->{patron_attributes} } ) > $max_nb_attr; -- 2.39.5