No backpan: closes #397.

Author: mavorg

lib/MetaCPAN/Web/Controller/Author.pm

@@ -61,8 +61,17 @@ sub index : Chained('root') PathPart('') Args(0) {
  = $c->model('API::Favorite')->by_user( $author->{user} )->recv;
  $took += $faves_data->{took} || 0;
 
- $faves = [ map { $_->{fields} } @{ $faves_data->{hits}->{hits} } ];
- single_valued_arrayref_to_scalar($faves);
+ my @all_fav = map { $_->{fields}->{distribution} }
+ @{ $faves_data->{hits}->{hits} };
+ my $noLatest = $c->model('API::Release')->no_latest(@all_fav);
+
+ $faves = [
+ map {
+ my $distro = $_->{fields}->{distribution};
+ $noLatest->{$distro} ? () : $_->{fields};
+ } @{ $faves_data->{hits}->{hits} }
+ ];
+ $self->single_valued_arrayref_to_scalar($faves);
  $faves = [ sort { $b->{date} cmp $a->{date} } @{$faves} ];
  }
 

lib/MetaCPAN/Web/Model/API/Release.pm

@@ -4,6 +4,9 @@ use namespace::autoclean;
 
 extends 'MetaCPAN::Web::Model::API';
 
+use List::Util qw(first);
+use List::MoreUtils qw(uniq);
+
 =head1 NAME
 
 MetaCPAN::Web::Model::Release - Catalyst Model
@@ -441,6 +444,43 @@ sub topuploaders {
  );
 }
 
+sub no_latest {
+ my ( $self, @distributions ) = @_;
+
+ # If there are no distributions return
+ return {} unless (@distributions);
+
+ @distributions = uniq @distributions;
+ my $result = $self->request(
+ '/release/_search',
+ {
+ size => scalar @distributions,
+ query => {
+ filtered => {
+ query => { match_all => {} },
+ filter => {
+ and => [
+ { terms => { distribution => \@distributions } },
+ { term => { status => 'latest' } }
+ ]
+ }
+ }
+ },
+ fields => [qw(distribution status)]
+ }
+ )->recv;
+
+ my @latest
+ = map { $_->{fields}->{distribution} } @{ $result->{hits}->{hits} };
+
+ my %no_latest = map {
+ my $distro = $_;
+ ( first { $_ eq $distro } @latest ) ? () : ( $distro, 1 );
+ } @distributions;
+
+ return \%no_latest;
+}
+
 __PACKAGE__->meta->make_immutable;
 
 1;