Revision def4a030
Von Moritz Bunkus vor fast 11 Jahren hinzugefügt
| SL/DB/CustomVariableConfig.pm | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
|
||
|
use List::MoreUtils qw(any);
|
||
|
|
||
|
use SL::DB::MetaSetup::CustomVariableConfig;
|
||
|
use SL::DB::Manager::CustomVariableConfig;
|
||
|
use SL::DB::Helper::ActsAsList;
|
||
| ... | ... | |
|
return $self->processed_flags()->{$flag};
|
||
|
}
|
||
|
|
||
|
sub type_dependant_default_value {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return $self->default_value if $self->type ne 'select';
|
||
|
return (any { $_ eq $self->default_value } @{ $self->processed_options }) ? $self->default_value : $self->processed_options->[0];
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/DB/Helper/CustomVariables.pm | ||
|---|---|---|
|
# value needs config
|
||
|
$inherited_value
|
||
|
? $cvar->value($inherited_value)
|
||
|
: $cvar->value($params{config}->default_value);
|
||
|
: $cvar->value($params{config}->type_dependant_default_value);
|
||
|
return $cvar;
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
CVars: beim Autovivifien gültigen Wert für selects forçieren