From: Sven Schöling <s.schoeling@linet-services.de>
Date: Tue, 13 Mar 2012 18:57:23 +0000 (+0100)
Subject: is_sales methode für Order
X-Git-Tag: release-3.0.0beta1~345^2~4
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=211de9e3a7748d80cada65e5dde13a41b9e3f749;p=kivitendo-erp.git

is_sales methode für Order
---

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index 6b31cd235..6a0367219 100644
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -84,6 +84,11 @@ sub is_type {
   return shift->type eq shift;
 }
 
+sub is_sales {
+  croak 'not an accessor' if @_ > 1;
+  return shift->customer_id;
+}
+
 sub invoices {
   my $self   = shift;
   my %params = @_;