View | Details | Raw Unified | Return to bug 36555
Collapse All | Expand All

(-)a/reports/guided_reports.pl (-10 / +10 lines)
Lines 613-627 elsif ($op eq 'cud-share'){ Link Here
613
elsif ($op eq 'export'){
613
elsif ($op eq 'export'){
614
614
615
	# export results to tab separated text or CSV
615
	# export results to tab separated text or CSV
616
    my $report_id      = $input->param('id');
616
    my $report_id   = $input->param('id');
617
    my $report         = Koha::Reports->find($report_id);
617
    my $report      = Koha::Reports->find($report_id);
618
    my $sql            = $report->savedsql;
618
    my $sql         = $report->savedsql;
619
    my @param_names    = $input->multi_param('param_name');
619
    my @param_names = $input->multi_param('param_name');
620
    my @sql_params     = $input->multi_param('sql_params');
620
    my @sql_params  = $input->multi_param('sql_params');
621
    my $format         = $input->param('format');
621
    my $format      = $input->param('format');
622
    my $reportname     = $input->param('reportname');
622
    my $reportname  = $input->param('reportname');
623
    my $reportfilename = $reportname ? "$report_id-$reportname-reportresults.$format" : "$report_id-reportresults.$format" ;
623
    my $reportfilename =
624
    my $scrubber       = C4::Scrubber->new();
624
        $reportname ? "$report_id-$reportname-reportresults.$format" : "$report_id-reportresults.$format";
625
    my $scrubber = C4::Scrubber->new();
625
626
626
    ($sql, undef) = $report->prep_report( \@param_names, \@sql_params );
627
    ($sql, undef) = $report->prep_report( \@param_names, \@sql_params );
627
    my ( $sth, $q_errors ) = execute_query( { sql => $sql, report_id => $report_id } );
628
    my ( $sth, $q_errors ) = execute_query( { sql => $sql, report_id => $report_id } );
628
- 

Return to bug 36555