From eab57ac215d8593d135c01501255ee0b7037ae2d Mon Sep 17 00:00:00 2001
From: nik gaffney <nik@fo.am>
Date: Thu, 26 Aug 2021 19:17:58 +0200
Subject: [PATCH] How do we value the work which has been performed?

---
 f20-budget.pl | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/f20-budget.pl b/f20-budget.pl
index 068980e..fe63a61 100644
--- a/f20-budget.pl
+++ b/f20-budget.pl
@@ -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