From 1f79a77aa5fbedaad1aa7673d9042e38e8b87fae Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 5 Jan 2016 14:37:20 +0000
Subject: [PATCH] Bug 15353: Display the patron image where needed
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

On the 3 following pages, the patron image was not displayed:
   members/discharge.pl
   members/pay.pl
   members/paycollect.pl

Test plan:
Apply this patch and confirm the image is now displayed

Followed test plan, image displays as expected.
Signed-off-by: Marc Véron <veron@veron.ch>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 members/discharge.pl  | 3 +++
 members/pay.pl        | 3 +++
 members/paycollect.pl | 7 +++----
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/members/discharge.pl b/members/discharge.pl
index 6c0715b..466c119 100755
--- a/members/discharge.pl
+++ b/members/discharge.pl
@@ -102,6 +102,9 @@ if ( $input->param('borrowernumber') ) {
         borrowernumber => $borrowernumber,
     });
 
+    my ($picture, $dberror) = GetPatronImage($borrowernumber);
+    $template->param( picture => 1 ) if $picture;
+
     $template->param(
         borrowernumber    => $borrowernumber,
         biblionumber      => $data->{'biblionumber'},
diff --git a/members/pay.pl b/members/pay.pl
index 04991d8..b2e3a1f 100755
--- a/members/pay.pl
+++ b/members/pay.pl
@@ -136,6 +136,8 @@ sub add_accounts_to_template {
 
     $template->param(%$borrower);
 
+    my ($picture, $dberror) = GetPatronImage($borrower->{'borrowernumber'});
+    $template->param( picture => 1 ) if $picture;
     $template->param(
         accounts => $accounts,
         borrower => $borrower,
@@ -224,6 +226,7 @@ sub borrower_add_additional_fields {
     } elsif ( $b_ref->{category_type} eq 'A' ) {
         $b_ref->{adultborrower} = 1;
     }
+
     my ( $picture, $dberror ) = GetPatronImage( $b_ref->{borrowernumber} );
     if ($picture) {
         $b_ref->{has_picture} = 1;
diff --git a/members/paycollect.pl b/members/paycollect.pl
index 7254a3a..9525464 100755
--- a/members/paycollect.pl
+++ b/members/paycollect.pl
@@ -175,10 +175,9 @@ sub borrower_add_additional_fields {
     } elsif ( $b_ref->{category_type} eq 'A' ) {
         $b_ref->{adultborrower} = 1;
     }
-    my ( $picture, $dberror ) = GetPatronImage( $b_ref->{borrowernumber} );
-    if ($picture) {
-        $b_ref->{has_picture} = 1;
-    }
+
+    my ($picture, $dberror) = GetPatronImage($borrower->{'borrowernumber'});
+    $template->param( picture => 1 ) if $picture;
 
     if (C4::Context->preference('ExtendedPatronAttributes')) {
         $b_ref->{extendedattributes} = GetBorrowerAttributes($borrowernumber);
-- 
2.1.4