From f32a4f14498b70c5d928525ab75070a0e6151038 Mon Sep 17 00:00:00 2001 From: Matthias Meusburger Date: Wed, 27 May 2015 11:52:10 +0200 Subject: [PATCH] Bug 14280: Add branches fields to discharges letters Currently, when generating a discharge letter, branches fields are not translated in the letter (<>, <>, etc.) This patch fixes that. --- Koha/Borrower/Discharge.pm | 2 +- members/discharge.pl | 2 +- opac/opac-discharge.pl | 6 +++++- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/Koha/Borrower/Discharge.pm b/Koha/Borrower/Discharge.pm index f39475b..ba0216d 100644 --- a/Koha/Borrower/Discharge.pm +++ b/Koha/Borrower/Discharge.pm @@ -95,7 +95,7 @@ sub generate_as_pdf { my $letter = C4::Letters::GetPreparedLetter( module => 'members', letter_code => 'DISCHARGE', - tables => { borrowers => $params->{borrowernumber}, }, + tables => { borrowers => $params->{borrowernumber}, branches => $params->{'branchcode'}, }, ); my $today = output_pref( dt_from_string() ); diff --git a/members/discharge.pl b/members/discharge.pl index 2144af9..7c73af9 100755 --- a/members/discharge.pl +++ b/members/discharge.pl @@ -78,7 +78,7 @@ if ( $input->param('borrowernumber') ) { } eval { my $pdf_path = Koha::Borrower::Discharge::generate_as_pdf( - { borrowernumber => $borrowernumber, } ); + { borrowernumber => $borrowernumber, branchcode => $data->{'branchcode'} } ); binmode(STDOUT); print $input->header( diff --git a/opac/opac-discharge.pl b/opac/opac-discharge.pl index 800222c..5955a3e 100755 --- a/opac/opac-discharge.pl +++ b/opac/opac-discharge.pl @@ -57,8 +57,12 @@ if ( $op eq 'request' ) { } elsif ( $op eq 'get' ) { eval { + + # Getting member data + my $data = GetMember( borrowernumber => $loggedinuser ); my $pdf_path = Koha::Borrower::Discharge::generate_as_pdf({ - borrowernumber => $loggedinuser + borrowernumber => $loggedinuser, + branchcode => $data->{'branchcode'}, }); binmode(STDOUT); -- 1.7.10.4