From fcc43dfd250bcdfd4343250ed29900d5ba0843a7 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Fr=C3=A9d=C3=A9rick?= <frederick.capovilla@libeo.com>
Date: Thu, 27 Feb 2014 15:54:01 -0500
Subject: [PATCH] Bug 11869: Add more informations to the patron account
 printing page

This patch adds additional informations to the "Print summary"
and the "Print receipt" templates.

Additional information in "Print summary":
* Registration date
* Expiration date
* Library
* Category
* Fines and payments

TEST PLAN
---------
1) Go to a patron.
2) Make sure they have something checked out.
3) Manually add a fine.
4) Under the 'Print' button click 'Print summary'
   -- the resulting preview should:
   a) have the first for things listed above, and
   b) have a new fines and payments section.

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>

NOTE: The due date of the check out is not part of this patch,
      and so I signed off. Similarly, anything required for
      slips is configurable elsewhere now and thus comment 1
      does not accurately reflect the intent of this patch.

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
This works as described and passes all tests and the QA script.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 .../en/modules/members/moremember-print.tt    | 35 +++++++++++++++++++
 members/moremember.pl                         | 13 +++++++
 2 files changed, 48 insertions(+)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-print.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-print.tt
index 4642628a81..c9f4c855c7 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-print.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-print.tt
@@ -1,3 +1,4 @@
+[% USE KohaDates %]
 [% INCLUDE 'doc-head-open.inc' %]
 <title>Summary for [% firstname %] [% surname %] ([% cardnumber %])</title>
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
@@ -22,6 +23,10 @@
 <li>[% IF ( phone ) %][% phone %][% ELSE %](no phone number on file)[% END %]</li>
 <li>[% IF ( email ) %][% email %][% ELSE %](no primary email on file)[% END %]</li>
 [% IF ( emailpro ) %]<li>[% emailpro %]</li>[% END %]
+<li>Registration date: [% dateenrolled %]</li>
+<li>Expiration date: [% dateexpiry %]</li>
+<li>Library: [% branchname %]</li>
+<li>Category: [% description %]</li>
 </ul>
 
 [% IF ( issueloop ) %]
@@ -86,4 +91,34 @@
 </table>
 [% END %]
 
+[% IF ( accounts ) %]
+<table>
+    <caption>Account fines and payments</caption>
+    <tr>
+        <th>Description of charges</th>
+        <th>Date</th>
+        <th>Amount</th>
+        <th>Outstanding</th>
+    </tr>
+    [% FOREACH account IN accounts %]
+    <tr>
+        <td>
+            [% IF ( account.itemnumber ) %]<a href="/cgi-bin/koha/catalogue/moredetail.pl?biblionumber=[% account.biblionumber %]&amp;itemnumber=[% account.itemnumber %]">[% END %]
+            [% account.description %]&nbsp;[% IF ( account.printtitle ) %] [% account.title |html %][% END %]
+            [% IF ( account.itemnumber ) %]</a>[% END %]
+        </td>
+        <td>[% account.date | $KohaDates %]</td>
+        <td>[% account.amount %]</td>
+        <td>[% account.amountoutstanding %]</td>
+    </tr>
+    [% END %]
+    <tfoot>
+        <tr>
+            <td colspan="3">Total due</td>
+            <td colspan="2">[% totaldue %]</td>
+        </tr>
+    </tfoot>
+</table>
+[% END %]
+
 [% INCLUDE 'intranet-bottom.inc' %]
diff --git a/members/moremember.pl b/members/moremember.pl
index 40f6d432c9..d78cc1fd57 100755
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -232,6 +232,19 @@ my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
 $template->param( lib1 => $lib1 ) if ($lib1);
 $template->param( lib2 => $lib2 ) if ($lib2);
 
+# If printing a page, send the account informations to the template
+if ($print eq "page") {
+    foreach my $accountline (@$accts) {
+        $accountline->{amount} = sprintf '%.2f', $accountline->{amount};
+        $accountline->{amountoutstanding} = sprintf '%.2f', $accountline->{amountoutstanding};
+
+        if ($accountline->{accounttype} ne 'F' && $accountline->{accounttype} ne 'FU'){
+            $accountline->{printtitle} = 1;
+        }
+    }
+    $template->param( accounts => $accts );
+}
+
 # Show OPAC privacy preference is system preference is set
 if ( C4::Context->preference('OPACPrivacy') ) {
     $template->param( OPACPrivacy => 1);
-- 
2.39.5