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

Conflicts:

	SL/DB/DeliveryOrder.pm
	SL/DB/PurchaseInvoice.pm

diff --git a/SL/DB/DeliveryOrder.pm b/SL/DB/DeliveryOrder.pm
index b5bdcb413157ae9c90297e3d862a20197e0f6c1e..15d849aab748278a6fa1bc54bed62a6b1c4b6255 100644 (file)
--- a/SL/DB/DeliveryOrder.pm
+++ b/SL/DB/DeliveryOrder.pm
@@ -19,6 +19,8 @@ __PACKAGE__->meta->initialize;
 
 # methods
 
+sub items { goto &orderitems; }
+
 sub sales_order {
   my $self   = shift;
   my %params = @_;

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 993920c01590f8fe0c46ab4c5e3e2a2de85df239..cb366727e0948fd0fd39e6800d4162d7f0d247ec 100644 (file)
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -25,6 +25,8 @@ __PACKAGE__->meta->initialize;
 
 # methods
 
+sub items { goto &invoiceitems; }
+
 # it is assumed, that ordnumbers are unique here.
 sub first_order_by_ordnumber {
   my $self = shift;

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index 8d321661d90868064b8b35e57138cb11d0245c15..864da21efc69519fff007b6aa055bf7437e37555 100644 (file)
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -34,6 +34,8 @@ __PACKAGE__->meta->initialize;
 
 # methods
 
+sub items { goto &orderitems; }
+
 sub type {
   my $self = shift;
 

diff --git a/SL/DB/PurchaseInvoice.pm b/SL/DB/PurchaseInvoice.pm
index a06a3b639ab8ca620e995eb6ad286f642717b845..b73066e2078c3b9e51381324db4d1e5ba51c714e 100644 (file)
--- a/SL/DB/PurchaseInvoice.pm
+++ b/SL/DB/PurchaseInvoice.pm
@@ -14,4 +14,6 @@ __PACKAGE__->meta->add_relationship(invoiceitems => { type         => 'one to ma
 
 __PACKAGE__->meta->initialize;
 
+sub items { goto &invoiceitems; }
+
 1;