Koha/installer/data/mysql/db_revs/220600077.pl
Tomas Cohen Arazi ba01d76178
Bug 31713: Fix permissions
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
2022-11-03 15:42:20 -03:00

117 lines
3.2 KiB
Perl
Executable file

use Modern::Perl;
return {
bug_number => "31713",
description => "Add ACCOUNTS_SUMMARY slip notice",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
my $slip_content = <<~'END_CONTENT';
[% USE Branches %]
[% USE Koha %]
[% USE KohaDates %]
[% USE Price %]
[% PROCESS 'accounts.inc' %]
<table>
[% IF ( Koha.Preference('LibraryName') ) %]
<tr>
<th colspan='4' class='centerednames'>
<h1>[% Koha.Preference('LibraryName') | html %]</h1>
</th>
</tr>
[% END %]
<tr>
<th colspan='4' class='centerednames'>
<h2>[% Branches.GetName( borrower.branchcode ) | html %]</h2>
</th>
</tr>
<tr>
<th colspan='4' class='centerednames'>
<h3>Outstanding accounts</h3>
</th>
</tr>
<tr>
<th colspan='4' class='centerednames'>
<h4>Debts</h4>
</th>
</tr>
[% IF borrower.account.outstanding_debits.total_outstanding %]
<tr>
<th>Date</th>
<th>Charge</th>
<th>Amount</th>
<th>Outstanding</th>
</tr>
[% FOREACH debit IN borrower.account.outstanding_debits %]
<tr>
<td>[% debit.date | $KohaDates %]</td>
<td>
[% PROCESS account_type_description account=debit %]
[%- IF debit.description %], [% debit.description | html %][% END %]
</td>
<td class='debit'>[% debit.amount | $Price %]</td>
<td class='debit'>[% debit.amountoutstanding | $Price %]</td>
</tr>
[% END %]
[% ELSE %]
<tr>
<td colspan='4'>There are no outstanding debts on your account</td>
</tr>
[% END %]
<tr>
<th colspan='4' class='centerednames'>
<h4>Credits</h4>
</th>
</tr>
[% IF borrower.account.outstanding_credits.total_outstanding %]
<tr>
<th>Date</th>
<th>Credit</th>
<th>Amount</th>
<th>Outstanding</th>
</tr>
[% FOREACH credit IN borrower.account.outstanding_credits %]
<tr>
<td>[% credit.date | $KohaDates %]</td>
<td>
[% PROCESS account_type_description account=credit %]
[%- IF credit.description %], [% credit.description | html %][% END %]
</td>
<td class='credit'>[% credit.amount *-1 | $Price %]</td>
<td class='credit'>[% credit.amountoutstanding *-1 | $Price %]</td>
</tr>
[% END %]
[% ELSE %]
<tr>
<td colspan='4'>There are no outstanding credits on your account</td>
</tr>
[% END %]
<tfoot>
<tr>
<td colspan='3'>
[% IF borrower.account.balance < 0 %]
Total credit as of [% today | $KohaDates %]:
[% ELSE %]
Total outstanding dues as of [% today | $KohaDates %]:
[% END %]
</td>
[% IF ( borrower.account.balance <= 0 ) %]<td class='credit'>[% borrower.account.balance * -1 | $Price %]</td>
[% ELSE %]<td class='debit'>[% borrower.account.balance | $Price %]</td>[% END %]
</tr>
</tfoot>
</table>
END_CONTENT
$dbh->do(qq{
INSERT IGNORE INTO letter ( module, code, branchcode, name, is_html, title, content, message_transport_type, lang)
VALUES ( 'members', 'ACCOUNTS_SUMMARY', '', 'Account balance slip', 1, 'Account summary for [% borrower.firstname %] [% borrower.surname %]', "$slip_content", 'print', 'default' )
});
say $out "Notice added";
},
};