CustomerVendor: Picker nach Art von PartPicker

[mfinanz.git] / SL / DB / Manager / Customer.pm

diff --git a/SL/DB/Manager/Customer.pm b/SL/DB/Manager/Customer.pm
index 0d62fe8f2ef6a6454a7a267a1b157efe334665e8..30c32a9d328662f795f63bbc4f4f675217a6f22c 100644 (file)
--- a/SL/DB/Manager/Customer.pm
+++ b/SL/DB/Manager/Customer.pm
@@ -3,14 +3,22 @@ package SL::DB::Manager::Customer;
 use strict;
 
 use SL::DB::Helper::Manager;
-use base qw(SL::DB::Helper::Manager);
-
 use SL::DB::Helper::Sorted;
+use SL::DB::Helper::Paginated;
+use SL::DB::Helper::Filtered;
+use base qw(SL::DB::Helper::Manager);
 
 sub object_class { 'SL::DB::Customer' }
 
 __PACKAGE__->make_manager_methods;
 
+__PACKAGE__->add_filter_specs(
+  all => sub {
+    my ($key, $value, $prefix) = @_;
+    return or => [ map { $prefix . $_ => $value } qw(customernumber name) ]
+  }
+);
+
 sub _sort_spec {
   return ( default => [ 'name', 1 ],
            columns => { SIMPLE => 'ALL',