2017-01-15 22:03:06 +01:00
|
|
|
% title 'Make transfers for ' . $account;
|
2017-01-15 16:27:22 +01:00
|
|
|
|
|
|
|
<p>Check at least one item of each table that belong together.</p>
|
|
|
|
|
|
|
|
<form method="post">
|
|
|
|
|
|
|
|
<h2>Available credits</h2>
|
|
|
|
|
2017-01-15 22:03:06 +01:00
|
|
|
<p>Check credits you want to <strong>spend for the arrear(s) below</strong> with.</p>
|
2017-01-15 16:27:22 +01:00
|
|
|
|
|
|
|
<table>
|
2017-01-15 22:03:06 +01:00
|
|
|
<tr><th>?</th><th>date</th><th>purpose</th><th>to spend</th></tr>
|
2017-01-15 16:27:22 +01:00
|
|
|
% while ( my $d = $credits->next ) {
|
|
|
|
<tr><td><input type="checkbox" name="credits" value="<%= $d->credId %>"></td>
|
|
|
|
<td><%= $d->date %></td>
|
2017-01-15 22:03:06 +01:00
|
|
|
<td><%== nl2br $d->purpose %></td>
|
|
|
|
<td class="number"><%== money $d->difference %></td>
|
2017-01-15 16:27:22 +01:00
|
|
|
</tr>
|
|
|
|
% }
|
|
|
|
</table>
|
|
|
|
|
|
|
|
<h2>Current arrears</h2>
|
|
|
|
|
2017-01-15 22:03:06 +01:00
|
|
|
<p>Check arrears you want to <strong>settle with credit(s) above</strong>.</p>
|
2017-01-15 16:27:22 +01:00
|
|
|
<table>
|
2017-01-15 22:03:06 +01:00
|
|
|
<tr><th>?</th><th>date</th><th>purpose</th><th>to pay</th></tr>
|
2017-01-15 16:27:22 +01:00
|
|
|
% while ( my $d = $arrears->next ) {
|
|
|
|
<tr><td><input type="checkbox" name="debits" value="<%= $d->billId %>"></td>
|
|
|
|
<td><%= $d->date %></td>
|
2017-01-15 22:03:06 +01:00
|
|
|
<td><%== nl2br $d->purpose %></td>
|
|
|
|
<td class="number"><%== money $d->difference %></td>
|
2017-01-15 16:27:22 +01:00
|
|
|
</tr>
|
|
|
|
% }
|
|
|
|
</table>
|
|
|
|
|
|
|
|
<p><button type="submit">Make transfers</button>
|
|
|
|
|
|
|
|
</form>
|