Lines 8-15
return {
Link Here
|
8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
9 |
|
9 |
|
10 |
my $slip_content = <<~'END_CONTENT'; |
10 |
my $slip_content = <<~'END_CONTENT'; |
11 |
[% USE Koha %] |
|
|
12 |
[% USE Branches %] |
11 |
[% USE Branches %] |
|
|
12 |
[% USE Koha %] |
13 |
[% USE KohaDates %] |
13 |
[% USE Price %] |
14 |
[% USE Price %] |
14 |
[% PROCESS 'accounts.inc' %] |
15 |
[% PROCESS 'accounts.inc' %] |
15 |
<table> |
16 |
<table> |
Lines 85-91
return {
Link Here
|
85 |
|
86 |
|
86 |
<tfoot> |
87 |
<tfoot> |
87 |
<tr> |
88 |
<tr> |
88 |
<td colspan='3'>Total outstanding dues as on date: </td> |
89 |
<td colspan='3'>Total outstanding dues as of [% today | $KohaDates %]: </td> |
89 |
[% IF ( borrower.account.balance <= 0 ) %]<td class='credit'>[% ELSE %]<td class='debit'>[% END %][% borrower.account.balance | $Price %]</td> |
90 |
[% IF ( borrower.account.balance <= 0 ) %]<td class='credit'>[% ELSE %]<td class='debit'>[% END %][% borrower.account.balance | $Price %]</td> |
90 |
</tr> |
91 |
</tr> |
91 |
</tfoot> |
92 |
</tfoot> |