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

How do we value the work which has been performed?

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

28
f20-budget.pl
View file

@ -694,9 +694,11 @@ sub input_money {
} }
##############################################################################
############################################################################### # #
# compile budget: lay out the whole budget as it assembles # compile budget: lay out the whole budget as it assembles #
# #
##############################################################################
sub compile_budget { sub compile_budget {
@ -801,7 +803,9 @@ sub compile_budget {
END END
if ($agent_id ne "") { if ($agent_id ne "") {
while (my $recordfc = $sthfc->fetchrow_hashref) { while (my $recordfc = $sthfc->fetchrow_hashref) {
print(qq(Contributing agents <b>[$recordfc->{count}]</b>. This budget will remain open for editing until <b>$recordb->{end_date}</b>. Monetary items will be kept anonymous (although identifable to the budget r/administrators). Labour &amp; resources will be tagged with the name of the contributor.)); print <<END;
Contributing agents <b>[$recordfc->{count}]</b>. This budget will remain open for editing until <b>$recordb->{end_date}</b>. Monetary items will be kept anonymous (although identifable to the budget r/administrators). Labour &amp; resources will be tagged with the name of the contributor.
END
} }
} }
print <<END; print <<END;
@ -961,7 +965,7 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter $first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_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_item("$record->{item} [$first_init$last_init]");
} }
print_subsection("Resources / deployed"); print_subsection("Resources / deployed");
@ -975,7 +979,7 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter $first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_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_item("$record->{item} [$first_init$last_init]");
} }
print_subtitle("Labour / offered"); print_subtitle("Labour / offered");
@ -990,7 +994,7 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter $first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_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_item("$record->{item} [$first_init$last_init]");
} }
print_subtitle("Resources / offered"); print_subtitle("Resources / offered");
@ -1004,7 +1008,7 @@ END
$first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter $first_init =~ s/^([a-z])/\U$1/; ## capitalise first letter
$last_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_item("$record->{item} [$first_init$last_init]");
} }
print(qq(</div></div>)); print(qq(</div></div>));
@ -1012,16 +1016,13 @@ END
$dbh->disconnect; $dbh->disconnect;
&print_footer; &print_footer;
} }
sub print_subtitle { sub print_subtitle {
my $string = shift; my $string = shift;
print <<END; print <<END;
<div class="budget-item"> <div class="subtitle">$string</p></div>
<p class="item-name">$string</p>
<p class="item-amount"> </p>
</div>
END END
} }
@ -1036,6 +1037,7 @@ sub print_item {
</div> </div>
END END
} }
############################################################################ ############################################################################
# prepare expenditure # prepare expenditure