Lines 771-777
elsif ($phase eq 'Run this report'){
Link Here
|
771 |
unless ($sth) { |
771 |
unless ($sth) { |
772 |
die "execute_query failed to return sth for report $report_id: $sql"; |
772 |
die "execute_query failed to return sth for report $report_id: $sql"; |
773 |
} else { |
773 |
} else { |
774 |
my $headers= header_cell_loop($sth); |
774 |
my $headers = header_cell_loop($sth); |
775 |
$template->param(header_row => $headers); |
775 |
$template->param(header_row => $headers); |
776 |
while (my $row = $sth->fetchrow_arrayref()) { |
776 |
while (my $row = $sth->fetchrow_arrayref()) { |
777 |
my @cells = map { +{ cell => $_ } } @$row; |
777 |
my @cells = map { +{ cell => $_ } } @$row; |
Lines 949-955
sub header_cell_values {
Link Here
|
949 |
|
949 |
|
950 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
950 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
951 |
sub header_cell_loop { |
951 |
sub header_cell_loop { |
952 |
my @headers = map { +{ cell => $_ } } header_cell_values (shift); |
952 |
my @headers = map { +{ cell => decode('UTF-8',$_) } } header_cell_values (shift); |
953 |
return \@headers; |
953 |
return \@headers; |
954 |
} |
954 |
} |
955 |
|
955 |
|
956 |
- |
|
|