Improvements for transaction page

src/cljc/auto_ap/permissions.cljc

@@ -142,11 +142,19 @@
           false)))
 
 #? (:clj
-   (defn wrap-must [handler policy] 
-     (fn [request]
-       (if (can? (:identity request) policy)
-         (handler request)
-         {:status  302
-         :headers {"Location" (str "/login?"
-                                   (url/map->query {"redirect-to" (:uri request)}))}}))))
+   (defn wrap-must 
+     ( [handler policy] 
+      (fn [request]
+        (if (can? (:identity request) policy)
+          (handler request)
+          {:status  302
+           :headers {"Location" (str "/login?"
+                                     (url/map->query {"redirect-to" (:uri request)}))}})))
+     ( [handler policy get-client] 
+      (fn [request]
+        (if (can? (:identity request) (assoc policy :client (get-client request)))
+          (handler request)
+          {:status  302
+           :headers {"Location" (str "/login?"
+                                     (url/map->query {"redirect-to" (:uri request)}))}})))))