Bug 33168: Prevent debhelper from renaming history.txt to changelog

[koha-ffzg.git] / pos / printreceipt.pl

diff --git a/pos/printreceipt.pl b/pos/printreceipt.pl
index 0250559..bee3fa1 100755 (executable)
--- a/pos/printreceipt.pl
+++ b/pos/printreceipt.pl
@@ -29,9 +29,9 @@ my $input = CGI->new;
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
-        template_name   => "pos/printreceipt.tt",
-        query           => $input,
-        type            => "intranet",
+        template_name => "pos/printreceipt.tt",
+        query         => $input,
+        type          => "intranet",
     }
 );
 
@@ -51,22 +51,25 @@ output_and_exit_if_error(
 ) if $patron;    # Payment could have been anonymous
 
 my $lang = $patron ? $patron->lang : $template->lang;
-my $letter = Koha::Notice::Templates->find_effective_template(
-    {
-        module                 => 'pos',
-        code                   => 'RECEIPT',
-        branchcode             => C4::Context::mybranch,
-        message_transport_type => 'print',
-        lang                   => $lang
+my $letter = C4::Letters::GetPreparedLetter(
+    module                 => 'pos',
+    letter_code            => 'RECEIPT',
+    branchcode             => C4::Context::mybranch,
+    message_transport_type => 'print',
+    lang                   => $lang,
+    tables                 => {
+        credits   => $payment_id,
+        borrowers => $patron ? $patron->borrowernumber : undef
+    },
+    substitute => {
+        collected => scalar $input->param('collected'),
+        change    => scalar $input->param('change')
     }
 );
 
 $template->param(
-    letter  => $letter,
-    payment => $payment,
-
-    tendered => scalar $input->param('tendered'),
-    change   => scalar $input->param('change')
+    slip  => $letter->{content},
+    plain => !$letter->{is_html}
 );
 
 output_html_with_http_headers $input, $cookie, $template->output;