From 64f26d776fd10c3e2779fcd250555fdaa8113867 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
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.
---
 .../prog/en/includes/members-toolbar.inc              |  2 +-
 members/printslip.pl                                  | 11 +++++++++++
 2 files changed, 12 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 3d6ea935f9c..a51a8020776 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc
@@ -26,7 +26,7 @@
                 <li><a class="dropdown-item printslip" data-code="issueslip" href="#">Print slip</a></li>
                 <li><a class="dropdown-item printslip" data-code="issueqslip" href="#">Print quick slip</a></li>
                 [% IF patron.account_balance != 0 %]
-                <li><a class="dropdown-item" id="printfineslip" target="_blank" href="/cgi-bin/koha/members/printnotice.pl?notice=ACCOUNTS_SUMMARY&borrowernumber=[% patron.borrowernumber | uri %]">Print account balance</a></li>
+                <li><a class="dropdown-item printslip" data-code="accounts_summary" id="printfineslip" href="#">Print account balance</a></li>
                 [% END %]
                 [% IF patron.has_overdues %]
                     <li><a class="dropdown-item" id="print_overdues" href="#">Print overdues</a></li>
diff --git a/members/printslip.pl b/members/printslip.pl
index 243285faf18..f5102025c4e 100755
--- a/members/printslip.pl
+++ b/members/printslip.pl
@@ -93,6 +93,17 @@ 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.46.2