diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/reports-toolbar.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/reports-toolbar.inc
index de76725e8c..70954f7b86 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/reports-toolbar.inc
+++ b/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 %]
diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
index 6212fdae03..c3c104aaf2 100755
--- a/reports/guided_reports.pl
+++ b/reports/guided_reports.pl
@@ -884,7 +884,13 @@ elsif ($phase eq 'Run this report'){
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(
@@ -983,6 +989,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,