X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FObject.pm;h=52b9300a94d8866eb2382537129171f00435d74f;hb=f1c874c3725f159f1b00295bf825b2a270cf57bc;hp=f9508507e42586fd3ceb13bbc4a5ace51f194fd7;hpb=4aded4e8dae01257d3d835251b9ae7c2d7c8a767;p=kivitendo-erp.git diff --git a/SL/DB/Object.pm b/SL/DB/Object.pm index f9508507e..52b9300a9 100644 --- a/SL/DB/Object.pm +++ b/SL/DB/Object.pm @@ -7,9 +7,7 @@ use Rose::DB::Object; use List::MoreUtils qw(any); use SL::DB; -use SL::DB::Helpers::AttrNumber; -use SL::DB::Helpers::AttrDate; -use SL::DB::Helpers::AttrPercent; +use SL::DB::Helpers::Attr; use SL::DB::Helpers::Metadata; use SL::DB::Helpers::Manager; @@ -27,7 +25,7 @@ sub new { sub init_db { my $class_or_self = shift; my $class = ref($class_or_self) || $class_or_self; - my $type = 'LXOFFICE'; + my $type = $class =~ m/::Auth/ ? 'LXOFFICE_AUTH' : 'LXOFFICE'; return SL::DB::create(undef, $type); } @@ -80,34 +78,6 @@ sub update_attributes { return $self; } -sub make_attr_helper { - my ($self) = @_; - my $package = ref $self || $self; - - for my $col ($package->meta->columns) { - next if $col->primary_key_position; # don't make attr helper for primary keys - - attr_number ($package, $col->name, -2) if $col->type =~ /numeric | real | float/xi; - attr_percent($package, $col->name, -2) if $col->type =~ /numeric | real | float/xi; - attr_number ($package, $col->name, 0) if $col->type =~ /int/xi; - attr_date ($package, $col->name) if $col->type =~ /date | timestamp/xi; - } - - return $self; -} - -sub attr_number { - SL::DB::Helpers::AttrNumber::define(@_); -} - -sub attr_date { - SL::DB::Helpers::AttrDate::define(@_); -} - -sub attr_percent { - SL::DB::Helpers::AttrPercent::define(@_); -} - 1; __END__