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'}; |