fix sorting
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 25 May 2010 19:17:31 +0000 (21:17 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 25 May 2010 19:17:31 +0000 (21:17 +0200)
lib/MojoFacets/Data.pm

index fb86c75..762516b 100644 (file)
@@ -481,8 +481,8 @@ sub items {
        my $sorted_items;
        my $data = $self->_loaded('data');
        my $sort_start = $sort eq 'd' ? $#$filtered : 0;
-       foreach ( $offset .. $offset + $limit ) {
-               my $i = $sort_start + $_;
+       foreach ( 0 .. $limit ) {
+               my $i = $sort_start - ( $_ + $offset );
                last unless defined $filtered->[$i];
                push @$sorted_items, $data->{items}->[ $filtered->[$i] ];
        }