Various fixes and completing the HTTP interface
This commit is contained in:
@@ -7,10 +7,10 @@
|
||||
% while ( my $hr = $history->next ) {
|
||||
<tr><td><%= $hr->date %></td><td>
|
||||
% my $this = $hr->this_credit;
|
||||
<strong>On <a href="/credit/<%= $hr->credId %>"><%= <%= $this->credId %></a>:</strong> <%= $this->purpose %><br>
|
||||
<strong>On <a href="/credit/<%= $hr->credId %>"><%= <%= $this->credId %></a>:</strong> <%== nl2br $this->purpose %><br>
|
||||
% my $that = $hr->that_credit;
|
||||
<strong>With <%= $that->account->ID %>/<a href="/credit/<%= $that->credId %>"><%= <%= $that->credId %></a>:</strong> <%= $that->purpose %><br>
|
||||
<strong>Pay <%= $hr->billId %>:</strong> <%= $hr->purpose %>
|
||||
</td><td class="number"><%= $hr->debit %></td><td class="number"><%= $hr->credit %></td><td><%= $hr->note %></td></tr>
|
||||
<strong>With <%= $that->account->ID %>/<a href="/credit/<%= $that->credId %>"><%= <%= $that->credId %></a>:</strong> <%== nl2br $that->purpose %><br>
|
||||
<strong>Pay <%= $hr->billId %>:</strong> <%== nl2br $hr->purpose %>
|
||||
</td><td class="number"><%== money $hr->debit %></td><td class="number"><%== money $hr->credit %></td><td><%= $hr->note %></td></tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
@@ -16,22 +16,23 @@
|
||||
% }
|
||||
% my $u = $account->ID;
|
||||
<tr><th><%= $u %></th>
|
||||
<td class="even_until"><%= $bal->even_until // "never" %></td><td class="number"><%= $bal->arrears %></td><td><a href="<%= $u %>/debits">list</td><td><a href="<%= $u %>/out">add</a></td>
|
||||
<td class="even_until"><%= $bal->even_until // "never" %></td><td class="number"><%== money $bal->arrears %></td><td><a href="<%= $u %>/debits">list</td><td><a href="<%= $u %>/out">add</a></td>
|
||||
<td class="centered">
|
||||
% my $which = ($bal->arrears && 1) + ($bal->available && 1);
|
||||
% if ( $which == 2 ) {
|
||||
<a class="transfer-btn" href="<%= $u %>/transfer">C⇔D!</a>
|
||||
% }
|
||||
% elsif ( $which ) {
|
||||
<span style="background-color:rgba(224,224,0,0.4);">N/A</span>
|
||||
<span style="background-color:rgba(224,224,0,0.4);"> N/A </span>
|
||||
% }
|
||||
% else {
|
||||
<span style="background-color:rgba(0,224,0,0.4);">N/A</span>
|
||||
<span style="background-color:rgba(0,224,0,0.4);"> N/A </span>
|
||||
% }
|
||||
</td><td class="number"><%= $bal->available %></td><td><a href="<%= $u %>/credits">list</a></td><td><a href="<%= $u %>/in">add</a></td><td class="number"><%= $bal->earned %></td><td class="number"><%= $bal->promised %></td><td><a href="<%= $u %>/history">History</a></td><td><a href="<%= $u %>/report">Report</a></td></tr>
|
||||
</td><td class="number"><%== money $bal->available %></td><td><a href="<%= $u %>/credits">list</a></td><td><a href="<%= $u %>/in">add</a></td><td class="number"><%== money $bal->earned %></td><td class="number"><%== money $bal->promised %></td><td><a href="<%= $u %>/history">History</a></td><td><a href="<%= $u %>/report">Report</a></td></tr>
|
||||
% } # while
|
||||
</table>
|
||||
|
||||
<p style="text-align:center;"><a href="/bankStatement">Reconstructed bank statement</a></p>
|
||||
<div class="help">
|
||||
<h2>Column explanation</h2>
|
||||
<dl>
|
||||
|
||||
8
templates/account/report.html.ep
Normal file
8
templates/account/report.html.ep
Normal file
@@ -0,0 +1,8 @@
|
||||
% title 'Account report';
|
||||
|
||||
<table>
|
||||
<tr><th>Date</th><th>Value</th><th>Purpose</th></tr>
|
||||
% while ( my $record = $report->next ) {
|
||||
<tr><td><%= $record->date %></td><td class="number"><%== money $record->value %></td><td><%== nl2br $record->purpose %></td></tr>
|
||||
% }
|
||||
</table>
|
||||
@@ -1,4 +1,4 @@
|
||||
% title 'Make transfers';
|
||||
% title 'Make transfers for ' . $account;
|
||||
|
||||
<p>Check at least one item of each table that belong together.</p>
|
||||
|
||||
@@ -6,34 +6,33 @@
|
||||
|
||||
<h2>Available credits</h2>
|
||||
|
||||
<p>Check credits you want to <strong>pay above debit(s)</strong> with.</p>
|
||||
<p>Check credits you want to <strong>spend for the arrear(s) below</strong> with.</p>
|
||||
|
||||
<table>
|
||||
<tr><th>S</th><th>date</th><th>purpose</th><th>to spend</th></tr>
|
||||
<tr><th>?</th><th>date</th><th>purpose</th><th>to spend</th></tr>
|
||||
% while ( my $d = $credits->next ) {
|
||||
<tr><td><input type="checkbox" name="credits" value="<%= $d->credId %>"></td>
|
||||
<td><%= $d->date %></td>
|
||||
<td><%= $d->purpose %></td>
|
||||
<td><%= $d->difference %></td>
|
||||
<td><%== nl2br $d->purpose %></td>
|
||||
<td class="number"><%== money $d->difference %></td>
|
||||
</tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
<h2>Current arrears</h2>
|
||||
|
||||
<p>Check arrears you want to <strong>use this credit</strong> for.</p>
|
||||
<p>Check arrears you want to <strong>settle with credit(s) above</strong>.</p>
|
||||
<table>
|
||||
<tr><th>S</th><th>date</th><th>purpose</th><th>to pay</th></tr>
|
||||
<tr><th>?</th><th>date</th><th>purpose</th><th>to pay</th></tr>
|
||||
% while ( my $d = $arrears->next ) {
|
||||
<tr><td><input type="checkbox" name="debits" value="<%= $d->billId %>"></td>
|
||||
<td><%= $d->date %></td>
|
||||
<td><%= $d->purpose %></td>
|
||||
<td><%= $d->difference %></td>
|
||||
<td><%== nl2br $d->purpose %></td>
|
||||
<td class="number"><%== money $d->difference %></td>
|
||||
</tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
<p><button type="submit">Make transfers</button>
|
||||
<a href="<%= url_for('home') %>">Return to account list</a></p>
|
||||
|
||||
</form>
|
||||
|
||||
@@ -1,8 +1,8 @@
|
||||
% title 'Bank statement';
|
||||
|
||||
<table>
|
||||
<tr><th>Date</th><th>Account</th><th>Purpose</th><th>Debit</th><th>Credit</th></tr>
|
||||
<tr><th>Date</th><th>Purpose</th><th>Account</th><th>Debit</th><th>Credit</th></tr>
|
||||
% while ( my $record = $records->next ) {
|
||||
<tr><td><%= $record->date %></td><td><%= $record->account %></td><td><%= $record->purpose %></td><td><%= $record->debit %></td><td><%= $record->credit %></td></tr>
|
||||
<tr><td><%= $record->date %></td><td><%= $record->purpose %></td><td><%= $record->account %></td><td><%= $record->debit %></td><td><%= $record->credit %></td></tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
@@ -3,6 +3,6 @@
|
||||
<table class="income">
|
||||
<tr><th>Id</th><th>Date</th><th>Purpose</th><th>value</th><th>spent</th></tr>
|
||||
% while ( my $credit = $credits->next ) {
|
||||
<tr><td class="number"><a href="/credit/<%= $credit->credId %>"><%= $credit->credId %></a></td><td><%= $credit->date %></td><td><%= $credit->purpose %></td><td class="number"><%= $credit->value %></td><td class="number"><%= $credit->spent %></td></tr>
|
||||
<tr><td class="number"><a href="/credit/<%= $credit->credId %>"><%= $credit->credId %></a></td><td><%= $credit->date %></td><td><%== nl2br $credit->purpose %></td><td class="number"><%== money $credit->value %></td><td class="number"><%== money $credit->spent %></td></tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
@@ -43,8 +43,8 @@
|
||||
% my $d = $t->debit;
|
||||
<tr><td><input type="checkbox" name="revoke" value="<%= $t->billId %>"></td>
|
||||
<td><%= $t->timestamp %></td>
|
||||
<td><%= $d->purpose %></td>
|
||||
<td><%= $t->amount %></td>
|
||||
<td><%== nl2br $d->purpose %></td>
|
||||
<td class="number"><%== money $t->amount %></td>
|
||||
<td><%= $t->note %></td>
|
||||
</tr>
|
||||
% }
|
||||
@@ -66,8 +66,8 @@
|
||||
% while ( my $d = $arrears->next ) {
|
||||
<tr><td><input type="checkbox" name="spendFor" value="<%= $d->billId %>"></td>
|
||||
<td><%= $d->date %></td>
|
||||
<td><%= $d->purpose %></td>
|
||||
<td><%= $d->difference %></td>
|
||||
<td><%== nl2br $d->purpose %></td>
|
||||
<td class="number"><%== money $d->difference %></td>
|
||||
</tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
@@ -4,6 +4,6 @@
|
||||
<tr><th>Id</th><th>Date</th><th>Purpose</th><th>value</th><th>paid</th><th>to</th></tr>
|
||||
% while ( my $debit = $debits->next ) {
|
||||
% my $tgt = $debit->target;
|
||||
<tr><td><a href="/debit/<%= $debit->billId %>"><%= $debit->billId %></a></td><td><%= $debit->date %></td><td><%= $debit->purpose %></td><td class="number"><%= $debit->value %></td><td class="number"><%= $debit->paid %><td><a href="/credit/<%= $tgt->credId %>"><%= $tgt->account->ID %></a></tr>
|
||||
<tr><td><a href="/debit/<%= $debit->billId %>"><%= $debit->billId %></a></td><td><%= $debit->date %></td><td><%== nl2br $debit->purpose %></td><td class="number"><%== money $debit->value %></td><td class="number"><%== money $debit->paid %><td><a href="/credit/<%= $tgt->credId %>"><%= $tgt->account->ID %></a></tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
@@ -70,8 +70,8 @@ oops
|
||||
% my $c = $t->credit;
|
||||
<tr><td><input type="checkbox" name="revoke" value="<%= $t->credId %>"></td>
|
||||
<td><%= $t->timestamp %></td>
|
||||
<td><%= $c->purpose %></td>
|
||||
<td><%= $t->amount %></td>
|
||||
<td><%== nl2br $c->purpose %></td>
|
||||
<td><%== money $t->amount %></td>
|
||||
<td><%= $t->note %></td>
|
||||
</tr>
|
||||
% }
|
||||
@@ -93,8 +93,8 @@ oops
|
||||
% while ( my $d = $credits->next ) {
|
||||
<tr><td><input type="checkbox" name="payWith" value="<%= $d->credId %>"></td>
|
||||
<td><%= $d->date %></td>
|
||||
<td><%= $d->purpose %></td>
|
||||
<td><%= $d->difference %></td>
|
||||
<td><%== nl2br $d->purpose %></td>
|
||||
<td><%== money $d->difference %></td>
|
||||
</tr>
|
||||
% }
|
||||
</table>
|
||||
|
||||
@@ -17,5 +17,6 @@
|
||||
% }
|
||||
<%= content %>
|
||||
|
||||
<p style="text-align:center;"><a href="<%= url_for "home" %>">Back home – Account List</p>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
Reference in New Issue
Block a user