X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FFiltered.pm;h=5d18d8e89c1aa1fe8f5bdba8e558f44f70dd2ec9;hb=f63af42d0b025b20a5836dad9da6c07388b5da7a;hp=e95c01f053a4a6ad6daab6623647cd6e85927c61;hpb=efb9a24f2252104ab4af5c25334119d7c5c70a8c;p=kivitendo-erp.git diff --git a/SL/DB/Helper/Filtered.pm b/SL/DB/Helper/Filtered.pm index e95c01f05..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) = @_; + my ($class, $key, $value, $prefix, $path, @additional_tokens) = @_; my $filters = _get_filters($class); - return ($prefix . $key, $value) unless $filters->{$key}; + 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.