X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FCVar.pm;h=0099b7cbfb16d31c7e7db204b00d51f2ea9061c3;hb=544f83800e6f90112934ba965970eec9da7d8f5d;hp=77d34e67a03169713d6c772b91a7985ded07e3d9;hpb=a35a796b017f7ca94f7c881d1b96e0c3cdccd96e;p=kivitendo-erp.git diff --git a/SL/CVar.pm b/SL/CVar.pm index 77d34e67a..0099b7cbf 100644 --- a/SL/CVar.pm +++ b/SL/CVar.pm @@ -1,5 +1,7 @@ package CVar; +use strict; + use List::Util qw(first); use Data::Dumper; @@ -242,6 +244,8 @@ sub get_custom_variables { : $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}; @@ -349,7 +353,7 @@ sub save_custom_variables { } sub render_inputs { - $main::lxdebug->enter_sub(); + $main::lxdebug->enter_sub(2); my $self = shift; my %params = @_; @@ -370,7 +374,7 @@ sub render_inputs { $var->{VALID_BOX} = $form->parse_html_template('amcvar/render_checkboxes', { var => $var, %options }); } - $main::lxdebug->leave_sub(); + $main::lxdebug->leave_sub(2); } sub render_search_options { @@ -384,6 +388,8 @@ sub render_search_options { 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'; @@ -655,7 +661,7 @@ sub save_custom_variables_validity { } sub get_custom_variables_validity { - $main::lxdebug->enter_sub(); + $main::lxdebug->enter_sub(2); my $self = shift; my %params = @_; @@ -671,7 +677,7 @@ sub get_custom_variables_validity { my ($invalid) = selectfirst_array_query($form, $dbh, $query, conv_i($params{config_id}), conv_i($params{trans_id})); - $main::lxdebug->leave_sub(); + $main::lxdebug->leave_sub(2); return !$invalid; }