From 58ead7c11fc3f1d73ee67b82f6f973806e841811 Mon Sep 17 00:00:00 2001 From: Manuel Cillero Date: Sun, 12 Apr 2020 01:08:01 +0200 Subject: [PATCH] Improve display of devel status in report title --- Dam/DamLogic.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Dam/DamLogic.pm b/Dam/DamLogic.pm index e93dd38..7875d54 100644 --- a/Dam/DamLogic.pm +++ b/Dam/DamLogic.pm @@ -915,12 +915,15 @@ sub __tmpl_filter { my $filter_title = strval(' '); $filter_title .= defined($option{TITLE}) ? $option{TITLE} : 'FILTRO DE SELECCIÓN'; + my $sup_alpha = strval(' ', _t('alpha'), ''); + my $sup_beta = strval(' ', _t('beta'), ''); + if (!is_report()) { foreach my $note (array($option{NOTES})) { report_info($note); } - report_info(_t('Reports in <--alpha--> status are under development and may show errors or not give the expected results.', alpha => 'alfa')) if is_eq($option{STATUS}, ALPHA); - report_info(_t('Reports in <--beta--> status are in validation process.', beta => 'beta')) if is_eq($option{STATUS}, BETA); + report_info(_t('Reports in <--alpha--> status are under development and may show errors or not give the expected results.', alpha => $sup_alpha)) if is_eq($option{STATUS}, ALPHA); + report_info(_t('Reports in <--beta--> status are in validation process.', beta => $sup_beta)) if is_eq($option{STATUS}, BETA); report_info(_t('Filter fields marked with <--required--> are required.', required => '')); } @@ -929,7 +932,7 @@ sub __tmpl_filter { $tmpl_filter->param( FIRSTTIME => 1, - FILTER_TITLE => $filter_title, + FILTER_TITLE => strval($filter_title, is_eq($option{STATUS}, ALPHA) ? $sup_alpha : is_eq($option{STATUS}, BETA) ? $sup_beta : ''), DESCRIPTION => $option{DESCRIPTION}, RUN_MODE => $option{RUN_MODE}, FILTER_CONTROLS => \@filter_controls,