@@ -, +, @@
report as a file
subject line for your template
---
.../intranet-tmpl/prog/en/includes/reports-toolbar.inc | 3 +++
reports/guided_reports.pl | 10 +++++++++-
2 files changed, 12 insertions(+), 1 deletion(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/reports-toolbar.inc
+++ a/koha-tmpl/intranet-tmpl/prog/en/includes/reports-toolbar.inc
@@ -134,6 +134,9 @@
[% PROCESS 'delimiter_text.inc' %]
Tab separated text
Open Document Spreadsheet
+ [% IF processed_notice_title %]
+ Download as [% processed_notice_title | html %]
+ [% END %]
[% IF (results.json) %]
Chart (.svg)
[% END %]
--- a/reports/guided_reports.pl
+++ a/reports/guided_reports.pl
@@ -882,7 +882,8 @@ elsif ($phase eq 'Run this report'){
my ( $sth2, $errors2 ) = execute_query( { sql => $sql, report_id => $report_id } );
my $data = $sth2->fetchall_arrayref({});
my $notice_rendered = process_tt( $notice_template->content, { data => $data, report_id => $report_id } );
- $template->param( processed_notice => $notice_rendered );
+ my $title_rendered = process_tt( $notice_template->title, { data => $data, report_id => $report_id } );
+ $template->param( template_id => $template_id, processed_notice => $notice_rendered, processed_notice_title => $title_rendered );
}
$template->param(
@@ -981,6 +982,13 @@ elsif ($phase eq 'Export'){
$content .= $_ while <$ods_fh>;
unlink $ods_filepath;
}
+ elsif ( $format eq 'template' ) {
+ my $template_id = $input->param('template');
+ my $notice_template = Koha::Notice::Templates->find($template_id);
+ my $data = $sth->fetchall_arrayref({});
+ $content = process_tt( $notice_template->content, { data => $data, report_id => $report_id, for_download => 1 } );
+ $reportfilename = process_tt( $notice_template->title, { data => $data, report_id => $report_id } );
+ }
}
print $input->header(
-type => $type,
--