|
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 948-954
sub header_cell_values {
Link Here
|
| 948 |
|
948 |
|
| 949 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
949 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
| 950 |
sub header_cell_loop { |
950 |
sub header_cell_loop { |
| 951 |
my @headers = map { +{ cell => $_ } } header_cell_values (shift); |
951 |
my @headers = map { +{ cell => decode('UTF-8',$_) } } header_cell_values (shift); |
| 952 |
return \@headers; |
952 |
return \@headers; |
| 953 |
} |
953 |
} |
| 954 |
|
954 |
|
| 955 |
- |
|
|