% title 'Accounts'; % my ($type) = q{}; % my $inter_header = begin % my $group = shift; % end % while ( my $account = $accounts->next ) { % my $bal = $account->balance; % my $t = $account->type // q{}; % if ( $type ne $t ) { % $type = $t; <%= $inter_header->($t) %> % } % my $u = $account->ID; % } # while

Account	Even until	Arrears			Transfer	Available			Earned	Promised	History	Report
<%= $group \|\| 'Club management accounts' %>											all
<%= $u %>	<%= $bal->even_until // "never" %>	<%== money $bal->arrears %>			% my $which = ($bal->arrears && 1) + ($bal->available && 1); % if ( $which == 2 ) { › ‹ % } % elsif ( $which ) { <%== $bal->arrears ? q{›} : q{ } %> <%== $bal->available ? q{‹} : q{ } %> % } % else { % }	<%== money $bal->available %>			<%== money $bal->earned %>	<%== money $bal->promised %>	History	Report

% stash links => [ '/account' => "Create account", '/bankStatement' => "Reconstructed bank statement" ]; % my $help = begin

Column explanation

Even till:: Date of debt up to and including which all is settled.
Arrears:: Unpaid debits
Transfer:: Link to a view where you can match credit and debit and have the software transfer money in between automatically. Yellow "N/A" means there is no money to transfer as either credit or debit is 0. Green "N/A" means there is no money to transfer because the account is even.
Available:: Credits that have not been used or not to full extent, yet
Earned:: Paid debits targetting credits of that account.
Promised:: Unpaid or not fully paid debits targetting credits of that account.

% end % stash help => $help;