FoAM/feral-budget
12
0
Fork 0
Code Issues 3 Pull requests Packages Projects Releases 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 {
@ -801,7 +803,9 @@ sub compile_budget {
END
if ($agent_id ne "") {
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;
@ -961,7 +965,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_item("$record->{item} [$first_init$last_init]");
}
print_subsection("Resources / deployed");
@ -975,7 +979,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_item("$record->{item} [$first_init$last_init]");
}
print_subtitle("Labour / offered");
@ -990,7 +994,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_item("$record->{item} [$first_init$last_init]");
}
print_subtitle("Resources / offered");
@ -1004,7 +1008,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_item("$record->{item} [$first_init$last_init]");
}
print(qq(</div></div>));
@ -1012,16 +1016,13 @@ END
$dbh->disconnect;
&print_footer;
}
sub print_subtitle {
my $string = shift;
print <<END;
<div class="budget-item">
<p class="item-name">$string</p>
<p class="item-amount"> </p>
</div>
<div class="subtitle">$string</p></div>
END
}
@ -1036,6 +1037,7 @@ sub print_item {
</div>
END
}
############################################################################
# prepare expenditure