Direct sales?

This commit is contained in:
nik gaffney 2021-08-26 19:22:30 +02:00
parent eab57ac215
commit 2af15a1dab

View file

@ -871,7 +871,7 @@ END
} }
print_subtitle("Materials"); print_subtitle("Materials");
while (my $recordem = $sthef->fetchrow_hashref) { while (my $recordem = $sthem->fetchrow_hashref) {
my $cost = $recordem->{cost}; my $cost = $recordem->{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
@ -885,7 +885,7 @@ END
print_subtitle("Miscellaneous"); print_subtitle("Miscellaneous");
while (my $recordex = $sthef->fetchrow_hashref) { while (my $recordex = $sthex->fetchrow_hashref) {
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