FoAM/feral-budget
12
0
Fork 0
Code Issues 3 Pull requests Packages Projects Releases Wiki Activity

WHAT IF YOU DISAGREE ON WHAT SOMEONE IS SPENDING THEIR MONEY ON?

Browse source
This commit is contained in:
nik gaffney 2021-08-27 19:04:05 +02:00
parent e375afbde0
commit 1d9a04f4f3
1 changed files with 11 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
f20-budget.pl
View file

@ -12,7 +12,7 @@ no warnings qw(experimental::smartmatch);
# #
##############################################################################
do "f20-budget.config.pl";
do "./f20-budget.config.pl";
##############################################################################
# #
@ -817,7 +817,7 @@ END
<div class="subtitle">OUTGOINGS: / money requested or supplied</div>
END
print_subtitle("Fees");
print_subtitle("Labour / paid");
while (my $recordef = $sthef->fetchrow_hashref) {
my $cost = $recordef->{cost};
@ -830,18 +830,14 @@ END
</div>
END
}
print_subtitle("Materials");
print_subtitle("Resources / remunerated");
while (my $recordem = $sthem->fetchrow_hashref) {
my $cost = $recordem->{cost};
$display_cost = sprintf "%.2f",$cost;
$display_cost =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; ## add commma
print <<END;
<div class="budget-item">
<p class="item-name">$recordem->{item}</p>
<p class="item-amount">$recordem->{currency}$display_cost</p>
</div>
END
print_item("$recordem->{item}","$recordem->{currency}$display_cost");
}
print_subtitle("Miscellaneous");
@ -851,19 +847,16 @@ END
$display_cost = sprintf "%.2f",$cost;
$display_cost =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; ## add commma
print_item("$recordex->{item}", ">$recordex->{currency}$display_cost")
print_item("$recordex->{item}", ">$recordex->{currency}$display_cost");
}
print <<END;
<div class="budget-subtotal">
<div class="subtotal-name">
INCOME: / donations, contributions, sums, funds
</div>
<div class="subtotal-amount">
END
print_subtotal("INCOME: / donations, contributions, sums, funds");
while (my $recordf = $sthf->fetchrow_hashref) {
print(qq(&euro;$recordf->{amount} &nbsp;));
print_item("&euro;$recordf->{amount}");
}
print(qq(</div></div>));
## actual paid deposits