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

WHAT DO YOU DO WITH SAVINGS?

Browse source
This commit is contained in:
nik gaffney 2021-08-26 19:05:17 +02:00
parent bd0ee0ec4d
commit eacd29d646
1 changed files with 22 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
f20-budget.pl
View file

@ -852,7 +852,7 @@ END
<div class="subtitle">OUTGOINGS: / money requested or supplied</div>
END
print_subsection("Fees");
print_subtitle("Fees");
while (my $recordef = $sthef->fetchrow_hashref) {
my $cost = $recordef->{cost};
@ -865,7 +865,7 @@ END
</div>
END
}
print_subsection("Materials");
print_subtitle("Materials");
while (my $recordem = $sthef->fetchrow_hashref) {
my $cost = $recordem->{cost};
@ -879,7 +879,7 @@ END
END
}
print_subsection("Miscellaneous");
print_subtitle("Miscellaneous");
while (my $recordex = $sthef->fetchrow_hashref) {
my $cost = $recordex->{cost};
@ -949,7 +949,7 @@ END
END
print_subsection("Labour / deployed");
print_subtitle("Labour / deployed");
$sthdl->execute;
while (my $record = $sthdl->fetchrow_hashref) {
@ -961,7 +961,7 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
print_item("$record->{item} [$first_init$last_init]")
}
print_subsection("Resources / deployed");
@ -975,10 +975,10 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
print_subsection("$record->{item} [$first_init$last_init]")
print_item("$record->{item} [$first_init$last_init]")
}
print_subsection("Labour / offered");
print_subtitle("Labour / offered");
$sthol->execute;
while (my $record = $sthol->fetchrow_hashref) {
@ -990,10 +990,10 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
print_subsection("$record->{item} [$first_init$last_init]")
print_item("$record->{item} [$first_init$last_init]")
}
print_subsection("Resources / offered");
print_subtitle("Resources / offered");
while (my $record = $sthor->fetchrow_hashref) {
$record->{item} =~ s/^([a-z])/\U$1/; ## capitalise first letter
@ -1004,7 +1004,7 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
print_subsection("$record->{item} [$first_init$last_init]")
print_item("$record->{item} [$first_init$last_init]")
}
print(qq(</div></div>));
@ -1015,7 +1015,7 @@ END
}
sub print_subsection {
sub print_subtitle {
my $string = shift;
print <<END;
<div class="budget-item">
@ -1025,6 +1025,17 @@ sub print_subsection {
END
}
sub print_item {
my $string = shift;
my $amount = shift;
if (not $amount) {$amount = "";}
print <<END;
<div class="budget-item">
<p class="item-name">$string</p>
<p class="item-amount">$amount</p>
</div>
END
}
############################################################################
# prepare expenditure