@@ -, +, @@
---
.../prog/en/modules/members/moremember-print.tt | 35 ++++++++++++++++++++
members/moremember.pl | 13 +++++++
2 files changed, 48 insertions(+), 0 deletions(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-print.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-print.tt
@@ -1,3 +1,4 @@
+[% USE KohaDates %]
[% INCLUDE 'doc-head-open.inc' %]
Summary for [% firstname %] [% surname %] ([% cardnumber %])
@@ -22,6 +23,10 @@
[% IF ( phone ) %][% phone %][% ELSE %](no phone number on file)[% END %]
[% IF ( email ) %][% email %][% ELSE %](no primary email on file)[% END %]
[% IF ( emailpro ) %][% emailpro %][% END %]
+Registration date: [% dateenrolled %]
+Expiration date: [% dateexpiry %]
+Library: [% branchname %]
+Category: [% description %]
[% IF ( issueloop ) %]
@@ -86,4 +91,34 @@
[% END %]
+[% IF ( accounts ) %]
+
+[% END %]
+
[% INCLUDE 'intranet-bottom.inc' %]
--- a/members/moremember.pl
+++ a/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);
--