Sub-Aliase 'items' auf 'orderitems' bzw. 'invoiceitems' zur späteren Verwendung eines...

[mfinanz.git] / SL / DB / DeliveryOrder.pm

diff --git a/SL/DB/DeliveryOrder.pm b/SL/DB/DeliveryOrder.pm
index 0dacf9a2af855ce3ce444ac07f29f3282d783d68..15d849aab748278a6fa1bc54bed62a6b1c4b6255 100644 (file)
--- a/SL/DB/DeliveryOrder.pm
+++ b/SL/DB/DeliveryOrder.pm
@@ -8,10 +8,6 @@ use SL::DB::Order;
 
 use List::Util qw(first);
 
-for my $field (qw(transdate reqdate)) {
-  __PACKAGE__->attr_date($field);
-}
-
 __PACKAGE__->meta->add_relationship(orderitems => { type         => 'one to many',
                                                     class        => 'SL::DB::DeliveryOrderItem',
                                                     column_map   => { id => 'trans_id' },
@@ -23,6 +19,8 @@ __PACKAGE__->meta->initialize;
 
 # methods
 
+sub items { goto &orderitems; }
+
 sub sales_order {
   my $self   = shift;
   my %params = @_;