fixed bug in top endpoints

Author: toasted226

src/source/routes/analytics/creator/top.clj

@@ -21,8 +21,8 @@
 
   [{:keys [ds user query-params] :as _request}]
   (let [{:keys [n mindate maxdate top contenttype]} (w/keywordize-keys query-params)
-        top-field (if (= top "post") :post-id :bundle-id)]
-    (res/response (set/rename-keys
-                   (analytics/top-statistics-query ds mindate maxdate n top-field {:creator-id (:id user)
-                                                                                   :content-type-id contenttype})
-                   {top-field :top}))))
+        top-field (if (= top "post") :post-id :bundle-id)
+        results (analytics/top-statistics-query ds mindate maxdate n top-field {:creator-id (:id user)
+                                                                                :content-type-id contenttype})]
+    (res/response (mapv (fn [result]
+                          (set/rename-keys result {top-field :top})) results))))

src/source/routes/analytics/distributor/top.clj

@@ -21,8 +21,8 @@
 
   [{:keys [ds user query-params] :as _request}]
   (let [{:keys [n mindate maxdate top contenttype]} (w/keywordize-keys query-params)
-        top-field (if (= top "post") :post-id :feed-id)]
-    (res/response (set/rename-keys
-                   (analytics/top-statistics-query ds mindate maxdate n top-field {:distributor-id (:id user)
-                                                                                   :content-type-id contenttype})
-                   {top-field :top}))))
+        top-field (if (= top "post") :post-id :feed-id)
+        results (analytics/top-statistics-query ds mindate maxdate n top-field {:distributor-id (:id user)
+                                                                                :content-type-id contenttype})]
+    (res/response (mapv (fn [result]
+                          (set/rename-keys result {top-field :top})) results))))

src/source/routes/reitit.clj

@@ -233,8 +233,10 @@
       ["/bundle"        {:middleware [[mw/apply-bundle]]}
        ["/posts"
         ["/:id"
-         ["/views"       (route {:post analytics-bundle-posts-id-views/post})]]]]
-      ["admin"          {:middleware [[mw/apply-auth {:required-type :admin}]]}]]
+         ["/views"      (route {:post analytics-bundle-posts-id-views/post})]]]]
+      ["admin"          {:middleware [[mw/apply-auth {:required-type :admin}]]}
+       ["/general"]
+       ["/top"]]]
 
      ["/bundle"        {:middleware [[mw/apply-bundle]]
                         :tags #{"bundles"}}