X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FFiltered.pm;h=a0f522bf1b08fc72c429024f479264387dc14ce0;hb=a6a97a5fb2ea27466c69d6d4bd7472c9c12fec05;hp=35329494b12166ee4e65303e20ad4358a4bde788;hpb=b8ee6b6ed46e55095b955ee1800b8a4b8d8ccc3f;p=kivitendo-erp.git diff --git a/SL/DB/Helper/Filtered.pm b/SL/DB/Helper/Filtered.pm index 35329494b..a0f522bf1 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 { @@ -164,7 +164,7 @@ to make sense to Rose. =item * -You are expeceted to return exactly one key and one value. That can mean you +You are expected to return exactly one key and one value. That can mean you have to encapsulate your arguments into C<< or => [] >> or C<< and => [] >> blocks. =item *