This fix the csv export that doesn't export correctly the budget name, it's empty column.
And it turn off some SQL debug that slow down the result of the page and the csv export.
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
type => "intranet",
authnotrequired => 0,
flagsrequired => { acquisition => 'planning_manage' },
- debug => 1,
+ debug => 0,
}
);
sub _print_to_csv {
my ( $header, $results ) = @_;
+ binmode STDOUT, ":utf8";
+
my $csv = Text::CSV_XS->new(
{ sep_char => $del,
always_quote => 'TRUE',
print "$str\n";
foreach my $row (@$results) {
- my @col = ( $row->{'budget_name'}, $row->{'budget_amount'} );
+ $row->{'budget_name_indent'} =~ s/ / /g;
+ my @col = ( $row->{'budget_name_indent'}, $row->{'budget_amount'} );
my $l = $row->{'lines'};
foreach my $line (@$l) {
push @col, $line->{'estimated_amount'};