Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

(MT #2565) fix aqplan csv export, and turn off debug

Browse source 
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:
Nahuel ANGELINETTI 2010-05-26 16:06:45 +02:00 committed by Galen Charlton
parent 340f8f0725
commit d43cf08837
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
admin/aqplan.pl
View file

@ -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/&nbsp;/ /g;
my @col = ( $row->{'budget_name_indent'}, $row->{'budget_amount'} );
my $l = $row->{'lines'};
foreach my $line (@$l) {
push @col, $line->{'estimated_amount'};