(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 <gmcharlt@gmail.com>
This commit is contained in:
parent
340f8f0725
commit
d43cf08837
1 changed files with 5 additions and 2 deletions
|
@ -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'};
|
||||
|
|
Loading…
Reference in a new issue