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,