From ed4a40d996aafdd3bf6feb9a391e4bce645d425f Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Mon, 7 Oct 2024 12:11:28 +0100 Subject: [PATCH] Bug 35267: Migrate accounts_summary to printslip This patch migrates the 'slip' printing for the ACCOUNTS_SUMMARY slip to circ/printslip as this is a slip rather than a notice. Sponsored-by: PTFS Europe --- .../intranet-tmpl/prog/en/includes/members-toolbar.inc | 2 +- members/printslip.pl | 9 +++++++++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc index 61e96355da9..e887a41bd01 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc +++ b/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc @@ -43,7 +43,7 @@
  • Print slip
  • Print quick slip
  • [% IF patron.account_balance != 0 %] -
  • Print account balance
  • +
  • Print account balance
  • [% END %] [% IF patron.has_overdues %]
  • Print overdues
  • diff --git a/members/printslip.pl b/members/printslip.pl index c801fe713a1..9b8a9df56a6 100755 --- a/members/printslip.pl +++ b/members/printslip.pl @@ -95,6 +95,15 @@ if ( $print eq 'checkinslip' ) { $letter = IssueSlip( $session->param('branch') || $branch, $borrowernumber, 0 ); } elsif ( $print eq 'issueqslip' ) { $letter = IssueSlip( $session->param('branch') || $branch, $borrowernumber, 1 ); +} elsif ( $print eq 'accounts_summary' ) { + $letter = C4::Letters::GetPreparedLetter( + module => 'members', + letter_code => $print, + branchcode => $branch, + lang => $patron->lang, + tables => { borrowers => $patron->borrowernumber }, + message_transport_type => 'print', + ); } else { $letter = C4::Letters::GetPreparedLetter( module => 'patron_slip', -- 2.48.1