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 |
- |
|
|