From 9bcd719faa3aa153ebbdbc06d131daab4738d432 Mon Sep 17 00:00:00 2001
From: Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com>
Date: Thu, 10 Aug 2017 13:00:19 +0200
Subject: [PATCH] Bug 19073: (bug 15758 follow-up) Dereference correct value
 from Koha::Object.

* tools/modborrowers.pl: Dereference 'branchcode' rather than
  'value'.

Test Plan:
- Carry out "Batch patron modification" with any number of patrons.
  + Change the library.
  + Hit Save.
- The library will not have been updated.
- Apply patch.
- Run same modification.
- The library will have been updated

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit 8a328a20bf3a74268346104281688b2a81be80e6)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit 111ab4e63257410bf7ca34e80e46675603072c36)
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 6416343f82..bebade867d 100755
--- a/tools/modborrowers.pl
+++ b/tools/modborrowers.pl
@@ -146,7 +146,7 @@ if ( $op eq 'show' ) {
     # Construct drop-down list values
     my $branches = GetBranchesLoop;
     my @branches_option;
-    push @branches_option, { value => $_->{value}, lib => $_->{branchname} } for @$branches;
+    push @branches_option, { value => $_->{branchcode}, lib => $_->{branchname} } for @$branches;
     unshift @branches_option, { value => "", lib => "" };
     my $categories = GetBorrowercategoryList;
     my @categories_option;
-- 
2.39.5