X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FOrder.pm;h=d61ec31ebcf402f859711cbb21ad8b00b2f93cf9;hb=a7ca8ba215c2a039e97c27bc3c637712fca837e9;hp=28b1b5726ccd2f7e33779d2cdc2345371aeb8764;hpb=42e01a1aa0f5be9e984932de7b01357e14d74d09;p=kivitendo-erp.git diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm index 28b1b5726..d61ec31eb 100644 --- a/SL/DB/Order.pm +++ b/SL/DB/Order.pm @@ -9,6 +9,8 @@ use List::Util qw(max); use SL::DB::MetaSetup::Order; use SL::DB::Manager::Order; +use SL::DB::Helper::AttrHTML; +use SL::DB::Helper::AttrSorted; use SL::DB::Helper::FlattenToForm; use SL::DB::Helper::LinkedRecords; use SL::DB::Helper::PriceTaxCalculator; @@ -41,6 +43,9 @@ __PACKAGE__->meta->add_relationship( __PACKAGE__->meta->initialize; +__PACKAGE__->attr_html('notes'); +__PACKAGE__->attr_sorted('items'); + __PACKAGE__->before_save('_before_save_set_ord_quo_number'); # hooks @@ -62,12 +67,7 @@ sub _before_save_set_ord_quo_number { sub items { goto &orderitems; } sub add_items { goto &add_orderitems; } - -sub items_sorted { - my ($self) = @_; - - return [ sort {$a->position <=> $b->position } @{ $self->items } ]; -} +sub record_number { goto &number; } sub type { my $self = shift; @@ -95,6 +95,9 @@ sub displayable_type { die 'invalid type'; } +sub displayable_name { + join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number); +}; sub is_sales { croak 'not an accessor' if @_ > 1;