X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FCustomVariable.pm;h=60955e40fa3274c9c6a56baacf047f81d1484db7;hb=3711d95e5e6f1df8c1950c033f4c3549a7c126fd;hp=c90e03800b935487d079dc2c5c32aa71c9bb0394;hpb=55c51cd5afd63451058373729bd689d7d726d147;p=kivitendo-erp.git diff --git a/SL/DB/CustomVariable.pm b/SL/DB/CustomVariable.pm index c90e03800..60955e40f 100644 --- a/SL/DB/CustomVariable.pm +++ b/SL/DB/CustomVariable.pm @@ -4,10 +4,7 @@ package SL::DB::CustomVariable; use strict; - use SL::DB::MetaSetup::CustomVariable; -use SL::DB::CustomVariableValidity; -use SL::DB::Customer; __PACKAGE__->meta->initialize; @@ -26,6 +23,8 @@ sub value { goto &number_value; } else { + require SL::DB::Customer; + my $id = int($self->number_value); return $id ? SL::DB::Customer->new(id => $id)->load() : 0; } @@ -36,7 +35,10 @@ sub value { sub is_valid { my ($self) = @_; - return SL::DB::Manager::CustomVariableValidity->get_all_count(config_id => $self->config_id, trans_id => $self->trans_id) == 0; + require SL::DB::CustomVariableValidity; + + my $query = [config_id => $self->config_id, trans_id => $self->trans_id]; + return SL::DB::Manager::CustomVariableValidity->get_all_count(query => $query) == 0; } 1;