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

the bodily cartography staged?

Browse source
This commit is contained in:
nik gaffney 2021-08-26 19:53:02 +02:00
parent 4101e785dd
commit f186cf598f
1 changed files with 7 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
f20-budget.pl
View file

@ -817,7 +817,7 @@ END
while (my $recordr = $sthr->fetchrow_hashref) { while (my $recordr = $sthr->fetchrow_hashref) {
print<<END; print<<END;
<FORM ACTION="$script_name"METHOD="GET">\n)); <FORM ACTION="$script_name"METHOD="GET">
<input type="hidden" name="action" value="prepare_budget"> <input type="hidden" name="action" value="prepare_budget">
<input type="hidden" name="new_name" value="$recordr->{name}"> <input type="hidden" name="new_name" value="$recordr->{name}">
<input type="hidden" name="agent_id" value="$agent_id"> <input type="hidden" name="agent_id" value="$agent_id">
@ -889,12 +889,8 @@ END
my $cost = $recordex->{cost}; my $cost = $recordex->{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("$recordex->{item}", ">$recordex->{currency}$display_cost")
<p class="item-name">$recordex->{item}</p>
<p class="item-amount">$recordex->{currency}$display_cost</p>
</div>
END
} }
print <<END; print <<END;
<div class="budget-subtotal"> <div class="budget-subtotal">
@ -916,12 +912,8 @@ END
$running = $sum[0]+$deposits; $running = $sum[0]+$deposits;
$display_running = sprintf "%.2f",$running; $display_running = sprintf "%.2f",$running;
$display_running =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; ## add commma $display_running =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g; ## add commma
print <<END;
<div class="budget-subtotal"> print_subtotal("RUNNING total IN:", "&euro;$display_running");
<div class="subtotal-name">RUNNING total IN:</div>
<div class="subtotal-amount">&euro;$display_running</div>
</div>
END
} }
} }
@ -963,6 +955,7 @@ END
print_subtitle("Resources / deployed"); print_subtitle("Resources / deployed");
$sthdr->execute;
while (my $record = $sthdr->fetchrow_hashref) { while (my $record = $sthdr->fetchrow_hashref) {
$record->{item} =~ s/^([a-z])/\U$1/; ## capitalise first letter $record->{item} =~ s/^([a-z])/\U$1/; ## capitalise first letter
my $first=$record->{firstname} ; my $first=$record->{firstname} ;
@ -992,6 +985,7 @@ END
print_subtitle("Resources / offered"); print_subtitle("Resources / offered");
$sthor->execute;
while (my $record = $sthor->fetchrow_hashref) { while (my $record = $sthor->fetchrow_hashref) {
$record->{item} =~ s/^([a-z])/\U$1/; ## capitalise first letter $record->{item} =~ s/^([a-z])/\U$1/; ## capitalise first letter
my $first=$record->{firstname} ; my $first=$record->{firstname} ;