|
Lines 372-378
foreach my $budget (@budgets) {
Link Here
|
| 372 |
|
372 |
|
| 373 |
%budget_line = ( |
373 |
%budget_line = ( |
| 374 |
lines => \@cells_line, |
374 |
lines => \@cells_line, |
| 375 |
budget_name_indent => $budget->{budget_name_indent}, |
375 |
budget_name => $budget->{budget_name}, |
| 376 |
budget_amount => $budget->{budget_amount}, |
376 |
budget_amount => $budget->{budget_amount}, |
| 377 |
budget_alloc => $budget->{budget_alloc}, |
377 |
budget_alloc => $budget->{budget_alloc}, |
| 378 |
budget_act_remain => sprintf( "%.2f", $budget_act_remain ), |
378 |
budget_act_remain => sprintf( "%.2f", $budget_act_remain ), |
|
Lines 448-455
sub _print_to_csv {
Link Here
|
| 448 |
print "$str\n"; |
448 |
print "$str\n"; |
| 449 |
|
449 |
|
| 450 |
foreach my $row (@$results) { |
450 |
foreach my $row (@$results) { |
| 451 |
$row->{'budget_name_indent'} =~ s/ / /g; |
451 |
my @col = ( $row->{'budget_name'}, $row->{'budget_amount'} ); |
| 452 |
my @col = ( $row->{'budget_name_indent'}, $row->{'budget_amount'} ); |
|
|
| 453 |
my $l = $row->{'lines'}; |
452 |
my $l = $row->{'lines'}; |
| 454 |
foreach my $line (@$l) { |
453 |
foreach my $line (@$l) { |
| 455 |
push @col, $line->{'estimated_amount'}; |
454 |
push @col, $line->{'estimated_amount'}; |