X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0310ce713a5de3a825e8e8f7b3a9a0476d9ee7f1..refs/heads/debian:/SL/DB/Manager/Letter.pm

diff --git a/SL/DB/Manager/Letter.pm b/SL/DB/Manager/Letter.pm
index 62c71c004..a412cd81b 100644
--- a/SL/DB/Manager/Letter.pm
+++ b/SL/DB/Manager/Letter.pm
@@ -12,6 +12,20 @@ use SL::DB::Helper::Sorted;
 sub object_class { 'SL::DB::Letter' }
 
 __PACKAGE__->make_manager_methods;
+__PACKAGE__->add_filter_specs(
+  is_sales => sub {
+    my ($key, $value, $prefix) = @_;
+    __PACKAGE__->is_sales_filter($value, $prefix);
+  },
+);
+
+sub is_sales_filter {
+  my ($class, $value, $prefix) = @_;
+
+  return () if !defined $value;
+  return ($prefix . 'customer_id' => { gt => 0 }) if $value;
+  return ($prefix . 'vendor_id'   => { gt => 0 }) if !$value;
+}
 
 sub _sort_spec {
   return ( columns => { SIMPLE    => 'ALL',