use every_param for filter

[MojoFacets.git] / lib / MojoFacets / Data.pm

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index a2d150b..513adbe 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -5,7 +5,11 @@ use warnings;
 
 use base 'Mojolicious::Controller';
 
-use Data::Dump qw(dump);
+#use Data::Dump qw(dump); # broken with Mojo::JSON, see https://rt.cpan.org/Public/Bug/Display.html?id=86592
+use Data::Dumper;
+use subs 'dump';
+sub dump { Dumper(@_) };
+
 use File::Slurp;
 use Encode;
 use locale;
@@ -261,7 +265,7 @@ sub _load_path {
 sub load {
        my $self = shift;
 
-       my @paths = $self->param('paths');
+       my @paths = @{ $self->every_param('paths') };
        warn "# paths ", dump @paths;
 
        foreach my $p ( keys %$loaded ) {
@@ -455,7 +459,7 @@ sub columns {
 sub _param_array {
     my ($self,$name) = @_;
 
-       my @array = $self->param($name);
+       my @array = @{ $self->every_param($name) };
        my $path  = $self->session('path');
 
        if ( @array ) {
@@ -500,7 +504,7 @@ sub filter {
        my $self = shift;
 
        my $name = $self->param('filter_name') || die "name?";
-       my @vals = $self->param('filter_vals');
+       my @vals = @{ $self->every_param('filter_vals') };
 
        $self->_remove_filter( $name );
        if ( @vals ) {