From d43cf0883709b0844d9936f072f497c6217c77b4 Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Wed, 26 May 2010 16:06:45 +0200 Subject: [PATCH] (MT #2565) fix aqplan csv export, and turn off debug 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 --- admin/aqplan.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/admin/aqplan.pl b/admin/aqplan.pl index 55367ef746..5fb70973b3 100755 --- a/admin/aqplan.pl +++ b/admin/aqplan.pl @@ -50,7 +50,7 @@ my ( $template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user type => "intranet", authnotrequired => 0, flagsrequired => { acquisition => 'planning_manage' }, - debug => 1, + debug => 0, } ); @@ -455,6 +455,8 @@ output_html_with_http_headers $input, $cookie, $template->output; sub _print_to_csv { my ( $header, $results ) = @_; + binmode STDOUT, ":utf8"; + my $csv = Text::CSV_XS->new( { sep_char => $del, always_quote => 'TRUE', @@ -477,7 +479,8 @@ sub _print_to_csv { 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'}; -- 2.39.5