@@ -, +, @@ --- .../prog/en/modules/members/moremember-print.tt | 37 ++++++++++++++++++++ .../prog/en/modules/members/moremember-receipt.tt | 2 +- members/moremember.pl | 13 +++++++ 3 files changed, 51 insertions(+), 1 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 %]) @@ -23,6 +24,12 @@
  • [% IF ( email ) %][% email %][% ELSE %](no primary email on file)[% END %]
  • [% IF ( emailpro ) %]
  • [% emailpro %]
  • [% END %] + [% IF ( issueloop ) %] @@ -86,4 +93,34 @@
    [% END %] +[% IF ( accounts ) %] + + + + + + + + + [% FOREACH account IN accounts %] + + + + + + + [% END %] + + + + + + +
    Account fines and payments
    Description of chargesDateAmountOutstanding
    + [% IF ( account.itemnumber ) %][% END %] + [% account.description %] [% IF ( account.printtitle ) %] [% account.title |html %][% END %] + [% IF ( account.itemnumber ) %][% END %] + [% account.date | $KohaDates %][% account.amount %][% account.amountoutstanding %]
    Total due[% totaldue %]
    +[% END %] + [% INCLUDE 'intranet-bottom.inc' %] --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-receipt.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember-receipt.tt @@ -19,7 +19,7 @@ [% IF ( branchname ) %][% branchname %]
    [% END %] Checked out to [% firstname %] [% surname %]
    ([% cardnumber %])
    - +Address: [% address %]
    [% todaysdate %]
    [% IF ( quickslip ) %] --- a/members/moremember.pl +++ a/members/moremember.pl @@ -229,6 +229,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); --