use new /favorite/agg_dists_user API endpoint

metacpan · Nov 26, 2016 · 99453b0 · 99453b0
1 parent a1a110f
commit 99453b0
Showing 1 changed file with 7 additions and 58 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API/Favorite.pm b/lib/MetaCPAN/Web/Model/API/Favorite.pm
@@ -21,64 +21,13 @@ sub get {
         return $cv;
     }
 
-    $self->request(
-        '/favorite/_search',
-        {
-            size  => 0,
-            query => {
-                filtered => {
-                    query  => { match_all => {} },
-                    filter => {
-                        or => [
-                            map { { term => { 'distribution' => $_ } } }
-                                @distributions
-                        ]
-                    }
-                }
-            },
-            aggregations => {
-                favorites => {
-                    terms => {
-                        field => 'distribution',
-                        size  => scalar @distributions,
-                    },
-                },
-                $user
-                ? (
-                    myfavorites => {
-                        filter       => { term => { 'user' => $user } },
-                        aggregations => {
-                            enteries => {
-                                terms => { field => 'distribution' }
-                            }
-                        }
-                    }
-                    )
-                : (),
-            }
-        }
-        )->cb(
-        sub {
-            my $data = shift->recv;
-            $cv->send(
-                {
-                    took      => $data->{took},
-                    favorites => {
-                        map { $_->{key} => $_->{doc_count} }
-                            @{ $data->{aggregations}->{favorites}->{buckets} }
-                    },
-                    myfavorites => $user
-                    ? {
-                        map { $_->{key} => $_->{doc_count} } @{
-                            $data->{aggregations}->{myfavorites}->{entries}
-                                ->{buckets}
-                        }
-                        }
-                    : {},
-                }
-            );
-        }
-        );
+    $cv->send(
+        $self->request(
+            '/favorite/agg_dists_user', undef,
+            { distributions => \@distributions, user => $user }
+        )
+    );
+
     return $cv;
 }