epic-ts

[kivitendo-erp.git] / SL / Controller / DeliveryOrder / TypeData.pm

diff --git a/SL/Controller/DeliveryOrder/TypeData.pm b/SL/Controller/DeliveryOrder/TypeData.pm
index 5b7cfe9..0650e08 100644 (file)
--- a/SL/Controller/DeliveryOrder/TypeData.pm
+++ b/SL/Controller/DeliveryOrder/TypeData.pm
@@ -6,6 +6,11 @@ use Scalar::Util qw(weaken);
 use SL::Locale::String qw(t8);
 use SL::DB::DeliveryOrder::TypeData qw(:types :subs);
 
+my @export_types = qw(SALES_DELIVERY_ORDER_TYPE PURCHASE_DELIVERY_ORDER_TYPE SUPPLIER_DELIVERY_ORDER_TYPE RMA_DELIVERY_ORDER_TYPE);
+
+our @EXPORT_OK = (@export_types);
+our %EXPORT_TAGS = (types => \@export_types);
+
 use Rose::Object::MakeMethods::Generic scalar => [ qw(c) ];
 
 sub new {
@@ -46,7 +51,8 @@ sub properties {
 }
 
 sub access {
-  get($_[0]->c->type, "right");
+  my ($self, $string) = @_;
+  get3($_[0]->c->type, "rights", $string);
 }
 
 sub is_quotation {
@@ -65,6 +71,10 @@ sub nr_key {
   get3($_[0]->c->type, "properties", "nr_key");
 }
 
+sub transfer {
+  get3($_[0]->c->type, "properties", "transfer");
+}
+
 sub part_classification_query {
   my ($self, $string) = @_;
   get($self->c->type, "part_classification_query");