merged.
This commit is contained in:
@@ -1,4 +1,6 @@
|
||||
(ns auto-ap.permissions)
|
||||
(ns auto-ap.permissions
|
||||
#?(:clj
|
||||
(:require [cemerick.url :as url])))
|
||||
|
||||
;; TODO after getting rid of cljs, use malli schemas to decode this
|
||||
(defn get-client-id [client]
|
||||
@@ -113,3 +115,13 @@
|
||||
|
||||
:else
|
||||
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)}))}}))))
|
||||
|
||||
|
||||
@@ -1,3 +1,9 @@
|
||||
(ns auto-ap.routes.admin.sales-summaries)
|
||||
(def routes {"" {:get ::page}
|
||||
"/table" ::table})
|
||||
(def routes {"" {:get ::page
|
||||
:put ::edit-wizard-submit}
|
||||
"/table" ::table
|
||||
|
||||
["/" [#"\d+" :db/id]] {:get ::edit-wizard }
|
||||
|
||||
"/edit/navigate" ::edit-wizard-navigate
|
||||
"/edit/sales-summary-item" ::new-summary-item})
|
||||
8
src/cljc/auto_ap/routes/dashboard.cljc
Normal file
8
src/cljc/auto_ap/routes/dashboard.cljc
Normal file
@@ -0,0 +1,8 @@
|
||||
(ns auto-ap.routes.dashboard)
|
||||
(def routes {""
|
||||
{:get ::page }
|
||||
"/expense-card" ::expense-card
|
||||
"/pnl-card" ::pnl-card
|
||||
"/sales-card" ::sales-card
|
||||
"/bank-accounts-card" ::bank-accounts-card
|
||||
"/tasks-card" ::tasks-card})
|
||||
@@ -6,6 +6,7 @@
|
||||
[auto-ap.routes.admin.vendors :as v-routes]
|
||||
[auto-ap.routes.outgoing-invoice :as oi-routes]
|
||||
[auto-ap.routes.payments :as p-routes]
|
||||
[auto-ap.routes.dashboard :as d-routes]
|
||||
[auto-ap.routes.invoice :as i-routes]
|
||||
[auto-ap.routes.admin.clients :as ac-routes]
|
||||
[auto-ap.routes.admin.sales-summaries :as ss-routes]
|
||||
@@ -16,6 +17,7 @@
|
||||
"search" :search
|
||||
"indicators" indicator-routes/routes
|
||||
|
||||
"dashboard" d-routes/routes
|
||||
"account" {"/search" {:get :account-search}}
|
||||
"admin" {"" :auto-ap.routes.admin/page
|
||||
"/client" ac-routes/routes
|
||||
@@ -84,7 +86,13 @@
|
||||
:post :company-1099-vendor-save}}
|
||||
"/reports" {"" {:get :company-reports
|
||||
:delete :company-reports-delete}
|
||||
"/table" :company-reports-table}
|
||||
"/table" :company-reports-table
|
||||
"/expense" {:get :company-expense-report
|
||||
"/card" :company-expense-report-breakdown-card
|
||||
"/invoice-total-card" :company-expense-report-invoice-total-card}
|
||||
"/reconciliation"
|
||||
{:get :company-reconciliation-report
|
||||
"/card" :company-reconciliation-report-card}}
|
||||
"/yodlee" {"" {:get :company-yodlee}
|
||||
"/table" {:get :company-yodlee-table}
|
||||
"/fastlink" {:get :company-yodlee-fastlink-dialog}
|
||||
|
||||
Reference in New Issue
Block a user