package CVar;
+use strict;
+
use List::Util qw(first);
use Data::Dumper;
: $act_var->{text_value};
$cvar->{valid} = $act_var->{valid};
} else {
+ $cvar->{valid} = 1;
+
if ($cvar->{type} eq 'date') {
if ($cvar->{default_value} eq 'NOW') {
$cvar->{value} = $cvar->{current_date};
my $myconfig = \%main::myconfig;
my $form = $main::form;
+ $params{hidden_cvar_filters} = $myconfig->{hide_cvar_search_options};
+
$params{include_prefix} = 'l_' unless defined($params{include_prefix});
$params{include_value} ||= '1';
# allow sub_module to be a coderef or a fixed value
if (ref $params{sub_module} ne 'CODE') {
- $params{sub_module} = sub { "$params{sub_module}" };
+ my $sub_module = "$params{sub_module}";
+ $params{sub_module} = sub { $sub_module };
}
my %cfg_map = map { $_->{id} => $_ } @{ $configs };