is_sales methode für Order

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index 6b31cd2..6a03672 100644 (file)
--- 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 = @_;