only include listed fields in autocomplete output

metacpan · Nov 21, 2016 · 36bdb1e · 36bdb1e
1 parent d716031
commit 36bdb1e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Server/Controller/Search/Autocomplete.pm b/lib/MetaCPAN/Server/Controller/Search/Autocomplete.pm
@@ -17,7 +17,8 @@ sub get : Local : Path('') : Args(0) {
     my $model = $self->model($c);
     $model = $model->fields( [qw(documentation release author distribution)] )
         unless $model->fields;
-    my $data = $model->autocomplete( $c->req->param("q") )->raw->all;
+    my $data
+        = $model->autocomplete( $c->req->param("q") )->source(0)->raw->all;
 
     single_valued_arrayref_to_scalar( $_->{fields} )
         for @{ $data->{hits}{hits} };