Lines 888-894
elsif ($phase eq 'Export'){
Link Here
|
888 |
my $reportname = $input->param('reportname'); |
888 |
my $reportname = $input->param('reportname'); |
889 |
my $reportfilename = $reportname ? "$reportname-reportresults.$format" : "reportresults.$format" ; |
889 |
my $reportfilename = $reportname ? "$reportname-reportresults.$format" : "reportresults.$format" ; |
890 |
|
890 |
|
891 |
$sql = get_prepped_report( $sql, \@param_names, \@sql_params ); |
891 |
($sql, undef) = get_prepped_report( $sql, \@param_names, \@sql_params ); |
892 |
my ($sth, $q_errors) = execute_query($sql); |
892 |
my ($sth, $q_errors) = execute_query($sql); |
893 |
unless ($q_errors and @$q_errors) { |
893 |
unless ($q_errors and @$q_errors) { |
894 |
my ( $type, $content ); |
894 |
my ( $type, $content ); |
895 |
- |
|
|