From 211de9e3a7748d80cada65e5dde13a41b9e3f749 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 13 Mar 2012 19:57:23 +0100
Subject: [PATCH] =?utf8?q?is=5Fsales=20methode=20f=C3=BCr=20Order?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/DB/Order.pm | 5 +++++
 1 file changed, 5 insertions(+)

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 = @_;
-- 
2.20.1