X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FFiltered.pm;h=5d18d8e89c1aa1fe8f5bdba8e558f44f70dd2ec9;hb=978a03de40e5710c6ca346a3dafb93352ecc7775;hp=0b2b473d8d641ea76851e59407e2d2b0f5d4c68b;hpb=a615812c73cf5b07005b4f56aae5aa1da8357ee9;p=kivitendo-erp.git diff --git a/SL/DB/Helper/Filtered.pm b/SL/DB/Helper/Filtered.pm index 0b2b473d8..5d18d8e89 100644 --- a/SL/DB/Helper/Filtered.pm +++ b/SL/DB/Helper/Filtered.pm @@ -10,13 +10,13 @@ our @EXPORT = qw (filter add_filter_specs); my %filter_spec; sub filter { - my ($class, $key, $value, $prefix, $path) = @_; + my ($class, $key, $value, $prefix, $path, @additional_tokens) = @_; my $filters = _get_filters($class); return ($prefix . $key, $value, $path) unless $filters->{$key}; - return $filters->{$key}->($key, $value, $prefix); + return $filters->{$key}->($key, $value, $prefix, @additional_tokens); } sub _get_filters { @@ -43,13 +43,13 @@ __END__ =head1 NAME -SL::Helper::Sorted - Manager mixin for filtered results. +SL::DB::Helper::Filtered - Manager mixin for filtered results. =head1 SYNOPSIS In the manager: - use SL::Helper::Filtered; + use SL::DB::Helper::Filtered; __PACKAGE__->add_filter_specs( custom_filter_name => sub { @@ -78,7 +78,7 @@ You can add multiple filters in one call, but only one filter per key. =item C -Tells the manager to pply custom filters. If none is registered for C<$key>, +Tells the manager to apply custom filters. If none are registered for C<$key>, returns C<$key, $value>. Otherwise the filter code is called.