Revision b62535cf
Von Martin Helmling martin.helmling@octosoft.eu vor etwa 7 Jahren hinzugefügt
SL/DB/CustomVariable.pm | ||
---|---|---|
125 | 125 |
require SL::DB::CustomVariableValidity; |
126 | 126 |
|
127 | 127 |
# only base level custom variables can be invalid. ovverloaded ones could potentially clash on trans_id, so disallow them |
128 |
return 1 if $_->sub_module;
|
|
128 |
return 1 if $self->sub_module;
|
|
129 | 129 |
|
130 | 130 |
$self->{is_valid} //= do { |
131 | 131 |
my $query = [config_id => $self->config_id, trans_id => $self->trans_id]; |
Auch abrufbar als: Unified diff
$self statt $_ eingebaut