manuelcillero/perl-dam
manuelcillero/perl-dam
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve display of devel status in report title

Browse source
This commit is contained in:
Manuel Cillero 2020-04-12 01:08:01 +02:00
parent c2abe34d22
commit 58ead7c11f
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Dam/DamLogic.pm
View file

@ -915,12 +915,15 @@ sub __tmpl_filter {
my $filter_title = strval('<span class="glyphicon glyphicon-', defined($option{ICON}) ? $option{ICON} : 'file', '"></span> '); my $filter_title = strval('<span class="glyphicon glyphicon-', defined($option{ICON}) ? $option{ICON} : 'file', '"></span> ');
$filter_title .= defined($option{TITLE}) ? $option{TITLE} : 'FILTRO DE SELECCIÓN'; $filter_title .= defined($option{TITLE}) ? $option{TITLE} : 'FILTRO DE SELECCIÓN';
my $sup_alpha = strval(' <sup class="alpha"><strong>', _t('alpha'), '</strong></sup>');
my $sup_beta = strval(' <sup class="beta"><strong>', _t('beta'), '</strong></sup>');
if (!is_report()) { if (!is_report()) {
foreach my $note (array($option{NOTES})) { foreach my $note (array($option{NOTES})) {
report_info($note); report_info($note);
} }
report_info(_t('Reports in <--alpha--> status are under development and may show errors or not give the expected results.', alpha => '<sup class="alfa"><strong>alfa</strong></sup>')) if is_eq($option{STATUS}, ALPHA); 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 class="beta"><strong>beta</strong></sup>')) if is_eq($option{STATUS}, BETA); 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 => '<label class="required"></label>')); report_info(_t('Filter fields marked with <--required--> are required.', required => '<label class="required"></label>'));
} }
@ -929,7 +932,7 @@ sub __tmpl_filter {
$tmpl_filter->param( $tmpl_filter->param(
FIRSTTIME => 1, 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}, DESCRIPTION => $option{DESCRIPTION},
RUN_MODE => $option{RUN_MODE}, RUN_MODE => $option{RUN_MODE},
FILTER_CONTROLS => \@filter_controls, FILTER_CONTROLS => \@filter_controls,