X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FObject.pm;h=f138518007537b98aebb07d5c69c1e0754a1c08f;hb=9a1c5b19d56a9a543ce6b2c3aa0463d12764b406;hp=f9508507e42586fd3ceb13bbc4a5ace51f194fd7;hpb=4aded4e8dae01257d3d835251b9ae7c2d7c8a767;p=kivitendo-erp.git diff --git a/SL/DB/Object.pm b/SL/DB/Object.pm index f9508507e..f13851800 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; @@ -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__