From 973b9a288ad6aabea38991857313748b99bd6a22 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Thu, 21 Aug 2008 10:48:31 -0500 Subject: [PATCH] bug 2540: allow download of report $error return C4::Reports::execute_query is always defined. Signed-off-by: Galen Charlton Signed-off-by: Chris Cormack --- reports/guided_reports.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl index 89b4bfc356..c1b9694409 100755 --- a/reports/guided_reports.pl +++ b/reports/guided_reports.pl @@ -386,10 +386,10 @@ elsif ($phase eq 'Run this report'){ elsif ($phase eq 'Export'){ binmode STDOUT, ':utf8'; - # export results to tab separated text or CSV - my $sql = $input->param('sql'); # FIXME: use sql from saved report ID#, not new user-supplied SQL! + # export results to tab separated text or CSV + my $sql = $input->param('sql'); # FIXME: use sql from saved report ID#, not new user-supplied SQL! my $format = $input->param('format'); - my ($sth, $q_errors) = execute_query($sql); + my ($sth, $q_errors) = execute_query($sql); unless ($q_errors and @$q_errors) { print $input->header( -type => 'application/octet-stream', -attachment=>"reportresults.$format" -- 2.39.5