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

diff --git a/SL/DB/Manager/Letter.pm b/SL/DB/Manager/Letter.pm
index 8aa2a3445..a412cd81b 100644
--- a/SL/DB/Manager/Letter.pm
+++ b/SL/DB/Manager/Letter.pm
@@ -12,16 +12,30 @@ 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',
                         customer  => [ 'lower(customer.name)', ],
                       },
-           default => [ 'date', 1 ],
+           default => [ 'date', 0 ],
            nulls   => { }
          );
 }
 
-sub default_objects_per_page { 15 }
+sub default_objects_per_page { 30 }
 
 1;