correct data extraction from query results

metacpan · May 24, 2016 · 6b3eaec · 6b3eaec
1 parent 616b1b8
commit 6b3eaec
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API/Favorite.pm b/lib/MetaCPAN/Web/Model/API/Favorite.pm
@@ -6,6 +6,9 @@ extends 'MetaCPAN::Web::Model::API';
 
 use List::MoreUtils qw(uniq);
 
+use Importer 'MetaCPAN::Web::Elasticsearch::Adapter' =>
+    qw/ single_valued_arrayref_to_scalar /;
+
 sub get {
     my ( $self, $user, @distributions ) = @_;
     @distributions = uniq @distributions;
@@ -131,8 +134,9 @@ sub find_plussers {
     my $plusser_data = $plusser->recv;
 
     # store in an array.
-    my @plusser_users
-        = map { $_->{fields}->{user}[0] } @{ $plusser_data->{hits}->{hits} };
+    my @plusser_users = map { $_->{user} }
+        map { single_valued_arrayref_to_scalar( $_->{fields} ) }
+        @{ $plusser_data->{hits}->{hits} };
     my $total_plussers = @plusser_users;
 
     # find plussers by pause ids.

diff --git a/lib/MetaCPAN/Web/Model/API/Module.pm b/lib/MetaCPAN/Web/Model/API/Module.pm
@@ -94,7 +94,7 @@ sub search_expanded {
     my $favorites    = $self->model('Favorite')->get( $user, @distributions );
     $_ = $_->recv for ( $ratings, $favorites, $descriptions );
     my $results = $self->_extract_results( $data, $ratings, $favorites );
-    map { $_->{description} = $descriptions->{results}->{ $_->{id}[0] } }
+    map { $_->{description} = $descriptions->{results}->{ $_->{id} } }
         @{$results};
     $cv->send(
         {