- # FIXME - multi-level sort
- my $numeric = $self->_is_numeric($order);
- my $missing = $numeric ? 0 : '';
- no warnings qw(numeric);
- my @sorted = sort {
- my $v1 = exists $a->{$order} ? join('', @{$a->{$order}}) : $missing;
- my $v2 = exists $b->{$order} ? join('', @{$b->{$order}}) : $missing;
- ($v1,$v2) = ($v2,$v1) if $sort eq 'd';
- $numeric ? $v1 <=> $v2 : $v1 cmp $v2 ;
- } $self->_data_items;
+ my $sorted = $self->_data_sorted_by( $order );
+
+ my @filter_names;
+ if ( $filters ) {
+ foreach my $name ( keys %$filters ) {
+ if ( ! defined $loaded->{$path}->{stats}->{ $name } ) {
+ warn "skip filter $name not found in $path\n";
+ next;
+ }
+ push @filter_names, $name;
+ }
+ warn "filter_names ",dump( @filter_names );
+ foreach my $name ( @filter_names ) {
+ next if ref $loaded->{$path}->{filters}->{$name} eq 'ARRAY';
+ $self->_filter_on_data( $name, @{ $filters->{$name} } );
+ }
+ }
+
+ my $path_filters = $loaded->{$path}->{filters};
+
+ my $sort_descending = $sort eq 'd';
+
+ my @filtered;
+ foreach my $i ( 0 .. $#$sorted ) {
+ my $pos = $sort_descending ? $sorted->[$i] : $sorted->[ $#$sorted - $i ];
+
+ push @filtered, $pos;
+ next if $#filter_names == -1;
+
+ my $skip = 0;
+ foreach ( @filter_names ) {
+ $skip ||= 1 if ! defined $path_filters->{$_}->{$pos};
+ }
+ next if $skip;
+
+ push @filtered, $pos;
+ }
+
+ my $sorted_items;
+ my $data = $self->_loaded('data');
+ foreach ( $offset .. $offset + $limit ) {
+ last unless defined $filtered[$_];
+ push @$sorted_items, $data->{items}->[ $filtered[$_] ];
+ }