Revision 42646def
Von Thomas Heck vor mehr als 11 Jahren hinzugefügt
SL/DB/CustomVariable.pm | ||
---|---|---|
4 | 4 |
package SL::DB::CustomVariable; |
5 | 5 |
|
6 | 6 |
use strict; |
7 |
|
|
8 | 7 |
use SL::DB::MetaSetup::CustomVariable; |
9 |
use SL::DB::CustomVariableValidity; |
|
10 |
use SL::DB::Customer; |
|
11 | 8 |
|
12 | 9 |
__PACKAGE__->meta->initialize; |
13 | 10 |
|
... | ... | |
26 | 23 |
goto &number_value; |
27 | 24 |
} |
28 | 25 |
else { |
26 |
require SL::DB::Customer; |
|
27 |
|
|
29 | 28 |
my $id = int($self->number_value); |
30 | 29 |
return $id ? SL::DB::Customer->new(id => $id)->load() : 0; |
31 | 30 |
} |
... | ... | |
36 | 35 |
sub is_valid { |
37 | 36 |
my ($self) = @_; |
38 | 37 |
|
38 |
require SL::DB::CustomVariableValidity; |
|
39 |
|
|
39 | 40 |
return SL::DB::Manager::CustomVariableValidity->get_all_count(config_id => $self->config_id, trans_id => $self->trans_id) == 0; |
40 | 41 |
} |
41 | 42 |
|
Auch abrufbar als: Unified diff
Kein use von DB-Objekten in DB-Objekten