From 0e896be90b13cfeea6fecb11fd28ac05a5934802 Mon Sep 17 00:00:00 2001 From: Erik Huelsmann Date: Sun, 28 May 2023 12:57:03 +0200 Subject: [PATCH] Add 'callback' parameter to single e-mail aging report Fixes #7428 --- lib/LedgerSMB/Scripts/report_aging.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/LedgerSMB/Scripts/report_aging.pm b/lib/LedgerSMB/Scripts/report_aging.pm index 084a91781e..596cb7884e 100644 --- a/lib/LedgerSMB/Scripts/report_aging.pm +++ b/lib/LedgerSMB/Scripts/report_aging.pm @@ -122,9 +122,10 @@ sub _render_statement_batch { my $results = $wf->context->param( 'results' ); if (scalar($results->@*) == 1) { my ($result) = $results->@*; + my $callback = 'callback=reports.pl%3Faction%3Dstart_report%26report_name%3Daging%26module_name%3Dgl%26entity_class%3D2'; return [ HTTP_SEE_OTHER, - [ Location => 'email.pl?action=render&id=' . $result->{id} ], + [ Location => 'email.pl?action=render&' . $callback . '&id=' . $result->{id} ], [ '' ] ]; }