updated datomic.
This commit is contained in:
@@ -92,7 +92,7 @@
|
|||||||
(not (nil? amount)) (helpers/merge-where [:= :amount amount])
|
(not (nil? amount)) (helpers/merge-where [:= :amount amount])
|
||||||
(seq statuses ) (helpers/merge-where [:in :status statuses])))
|
(seq statuses ) (helpers/merge-where [:in :status statuses])))
|
||||||
|
|
||||||
(defn get-graphql [{:keys [start sort-by asc id limit] :as args :or {limit 20}}]
|
(defn get-graphql [{:keys [start sort-by asc id limit] :as args :or {limit 100}}]
|
||||||
(query
|
(query
|
||||||
(cond-> (base-graphql args)
|
(cond-> (base-graphql args)
|
||||||
true (add-sort-by sort-by asc)
|
true (add-sort-by sort-by asc)
|
||||||
|
|||||||
@@ -42,7 +42,6 @@
|
|||||||
[:= :exist.vendor-id nil]
|
[:= :exist.vendor-id nil]
|
||||||
[:= :v.vendor-id nil]]]]]
|
[:= :v.vendor-id nil]]]]]
|
||||||
:where [:= :exist.id nil] }]})
|
:where [:= :exist.id nil] }]})
|
||||||
|
|
||||||
statement (j/prepare-statement
|
statement (j/prepare-statement
|
||||||
(j/get-connection (get-conn))
|
(j/get-connection (get-conn))
|
||||||
query
|
query
|
||||||
@@ -150,7 +149,7 @@
|
|||||||
(not (nil? status)) (helpers/merge-where [:= :status status])
|
(not (nil? status)) (helpers/merge-where [:= :status status])
|
||||||
(not (nil? company-id)) (helpers/merge-where [:= :company-id company-id])))
|
(not (nil? company-id)) (helpers/merge-where [:= :company-id company-id])))
|
||||||
|
|
||||||
(defn get-graphql [{:keys [start sort-by asc limit] :as args :or {limit 20}}]
|
(defn get-graphql [{:keys [start sort-by asc limit] :as args :or {limit 100}}]
|
||||||
(query
|
(query
|
||||||
(cond-> (base-graphql args)
|
(cond-> (base-graphql args)
|
||||||
|
|
||||||
|
|||||||
@@ -27,7 +27,7 @@
|
|||||||
(limited-companies id) (helpers/merge-where [:in :company-id (limited-companies id)])
|
(limited-companies id) (helpers/merge-where [:in :company-id (limited-companies id)])
|
||||||
(not (nil? company-id)) (helpers/merge-where [:= :company-id company-id])))
|
(not (nil? company-id)) (helpers/merge-where [:= :company-id company-id])))
|
||||||
|
|
||||||
(defn get-graphql [{:keys [start sort-by asc limit] :as args :or {limit 10}}]
|
(defn get-graphql [{:keys [start sort-by asc limit] :as args :or {limit 100}}]
|
||||||
(query
|
(query
|
||||||
(cond-> (base-graphql args)
|
(cond-> (base-graphql args)
|
||||||
#_#_(not (nil? sort-by) ) (add-sort-by sort-by asc)
|
#_#_(not (nil? sort-by) ) (add-sort-by sort-by asc)
|
||||||
|
|||||||
@@ -19,7 +19,7 @@
|
|||||||
y))
|
y))
|
||||||
|
|
||||||
(defn paginator [{:keys [start end count total on-change]}]
|
(defn paginator [{:keys [start end count total on-change]}]
|
||||||
(let [per-page 20
|
(let [per-page 100
|
||||||
max-buttons 5
|
max-buttons 5
|
||||||
buttons-before (Math/floor (/ max-buttons 2))
|
buttons-before (Math/floor (/ max-buttons 2))
|
||||||
total-pages (Math/ceil (/ total per-page))
|
total-pages (Math/ceil (/ total per-page))
|
||||||
|
|||||||
Reference in New Issue
Block a user