From aa33ca6825f41834fe20a0de9610c2378fc2c4c1 Mon Sep 17 00:00:00 2001
From: Nick Clemens <nick@bywatersolutions.com>
Date: Tue, 18 Apr 2017 13:53:54 -0400
Subject: [PATCH] Bug 18423 - Add 'Add child' button to files, housebound, and
 deletemem pages

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit c481c15a4fedd13b7f0f96d519313f744a425421)
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
---
 members/deletemem.pl | 2 ++
 members/files.pl     | 1 +
 2 files changed, 3 insertions(+)

diff --git a/members/deletemem.pl b/members/deletemem.pl
index 5022b06f71..c44c86fbc4 100755
--- a/members/deletemem.pl
+++ b/members/deletemem.pl
@@ -110,6 +110,8 @@ if ($countissues > 0 or $flags->{'CHARGES'}  or $data->{'borrowernumber'} or $de
     my ($picture, $dberror) = GetPatronImage($bor->{'borrowernumber'});
     $template->param( picture => 1 ) if $picture;
 
+    $template->param( adultborrower => 1 ) if ( $bor->{category_type} eq 'A' );
+
     $template->param(borrowernumber => $member,
         surname => $bor->{'surname'},
         title => $bor->{'title'},
diff --git a/members/files.pl b/members/files.pl
index dc4c9a9f45..27d102d52f 100755
--- a/members/files.pl
+++ b/members/files.pl
@@ -118,6 +118,7 @@ else {
     my ($picture, $dberror) = GetPatronImage($data->{'borrowernumber'});
     $template->param( picture => 1 ) if $picture;
 
+    $template->param( adultborrower => 1 ) if ( $data->{category_type} eq 'A' );
     $template->param(
         files => Koha::Borrower::Files->new( borrowernumber => $borrowernumber )
           ->GetFilesInfo(),
-- 
2.39.5