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