Lines 18-24
Link Here
|
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
19 |
|
19 |
|
20 |
|
20 |
|
21 |
use CGI; |
21 |
use CGI qw/-utf8/; |
22 |
use Text::CSV; |
22 |
use Text::CSV; |
23 |
use URI::Escape; |
23 |
use URI::Escape; |
24 |
use C4::Reports::Guided; |
24 |
use C4::Reports::Guided; |
Lines 725-733
elsif ($phase eq 'Run this report'){
Link Here
|
725 |
unless ($sth) { |
725 |
unless ($sth) { |
726 |
die "execute_query failed to return sth for report $report_id: $sql"; |
726 |
die "execute_query failed to return sth for report $report_id: $sql"; |
727 |
} else { |
727 |
} else { |
728 |
my $headref = $sth->{NAME} || []; |
728 |
my $headers= header_cell_loop($sth); |
729 |
my @headers = map { +{ cell => $_ } } @$headref; |
729 |
$template->param(header_row => $headers); |
730 |
$template->param(header_row => \@headers); |
|
|
731 |
while (my $row = $sth->fetchrow_arrayref()) { |
730 |
while (my $row = $sth->fetchrow_arrayref()) { |
732 |
my @cells = map { +{ cell => $_ } } @$row; |
731 |
my @cells = map { +{ cell => $_ } } @$row; |
733 |
push @rows, { cells => \@cells }; |
732 |
push @rows, { cells => \@cells }; |
Lines 844-850
elsif ($phase eq 'Save Compound'){
Link Here
|
844 |
# pass $sth, get back an array of names for the column headers |
843 |
# pass $sth, get back an array of names for the column headers |
845 |
sub header_cell_values { |
844 |
sub header_cell_values { |
846 |
my $sth = shift or return (); |
845 |
my $sth = shift or return (); |
847 |
return @{$sth->{NAME}}; |
846 |
my @cols; |
|
|
847 |
foreach my $c (@{$sth->{NAME}}) { |
848 |
#FIXME apparently DBI still needs a utf8 fix for this? |
849 |
utf8::decode($c); |
850 |
push @cols, $c; |
851 |
} |
852 |
return @cols; |
848 |
} |
853 |
} |
849 |
|
854 |
|
850 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
855 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
851 |
- |
|
|