FoAM/feral-budget
12
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages 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> <div class="subtitle">OUTGOINGS: / money requested or supplied</div>
END END
print_subtitle("Fees"); print_subtitle("Labour / paid");
while (my $recordef = $sthef->fetchrow_hashref) { while (my $recordef = $sthef->fetchrow_hashref) {
my $cost = $recordef->{cost}; my $cost = $recordef->{cost};
@ -830,18 +830,14 @@ END
</div> </div>
END END
} }
print_subtitle("Materials"); print_subtitle("Resources / remunerated");
while (my $recordem = $sthem->fetchrow_hashref) { while (my $recordem = $sthem->fetchrow_hashref) {
my $cost = $recordem->{cost}; my $cost = $recordem->{cost};
$display_cost = sprintf "%.2f",$cost; $display_cost = sprintf "%.2f",$cost;
$display_cost =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; ## add commma $display_cost =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; ## add commma
print <<END;
<div class="budget-item"> print_item("$recordem->{item}","$recordem->{currency}$display_cost");
<p class="item-name">$recordem->{item}</p>
<p class="item-amount">$recordem->{currency}$display_cost</p>
</div>
END
} }
print_subtitle("Miscellaneous"); print_subtitle("Miscellaneous");
@ -851,19 +847,16 @@ END
$display_cost = sprintf "%.2f",$cost; $display_cost = sprintf "%.2f",$cost;
$display_cost =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; ## add commma $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"> print_subtotal("INCOME: / donations, contributions, sums, funds");
INCOME: / donations, contributions, sums, funds
</div>
<div class="subtotal-amount">
END
while (my $recordf = $sthf->fetchrow_hashref) { while (my $recordf = $sthf->fetchrow_hashref) {
print(qq(&euro;$recordf->{amount} &nbsp;)); print_item("&euro;$recordf->{amount}");
} }
print(qq(</div></div>)); print(qq(</div></div>));
## actual paid deposits ## actual paid deposits