Revision 4cf0100e
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
SL/CVar.pm | ||
---|---|---|
224 | 224 |
$cvar->{OPTIONS} = [ map { { 'value' => $_ } } split(m/\#\#/, $cvar->{options}) ]; |
225 | 225 |
} |
226 | 226 |
|
227 |
my $act_var;
|
|
227 |
my ($act_var, $valid);
|
|
228 | 228 |
if ($params{trans_id}) { |
229 | 229 |
my @values = (conv_i($cvar->{id}), conv_i($params{trans_id})); |
230 | 230 |
push @values, $params{sub_module} if $params{sub_module}; |
... | ... | |
232 | 232 |
do_statement($form, $h_var, $q_var, @values); |
233 | 233 |
$act_var = $h_var->fetchrow_hashref(); |
234 | 234 |
|
235 |
$act_var->{valid} = $self->get_custom_variables_validity(config_id => $cvar->{id}, trans_id => $params{trans_id});
|
|
235 |
$valid = $self->get_custom_variables_validity(config_id => $cvar->{id}, trans_id => $params{trans_id});
|
|
236 | 236 |
} |
237 | 237 |
|
238 | 238 |
if ($act_var) { |
... | ... | |
241 | 241 |
: $cvar->{type} eq 'number' ? $act_var->{number_value} |
242 | 242 |
: $cvar->{type} eq 'bool' ? $act_var->{bool_value} |
243 | 243 |
: $act_var->{text_value}; |
244 |
$cvar->{valid} = $act_var->{valid};
|
|
244 |
$cvar->{valid} = $valid;
|
|
245 | 245 |
} else { |
246 | 246 |
$cvar->{valid} = 1; |
247 | 247 |
|
Auch abrufbar als: Unified diff
Benutzerdefinierte Variablen: bei nicht existierenden die Defaultwerte wieder nutzen