reimplemented security

src/clj/auto_ap/db/checks.clj

@@ -1,5 +1,5 @@
 (ns auto-ap.db.checks
-  (:require [auto-ap.db.utils :refer [clj->db db->clj get-conn execute! limited-companies] :as u]
+  (:require [auto-ap.db.utils :refer [clj->db db->clj get-conn execute!] :as u]
             [auto-ap.entities.companies :as entity]
             [clojure.edn :as edn]
             [clojure.java.jdbc :as j]

src/clj/auto_ap/db/invoices.clj

@@ -1,5 +1,5 @@
 (ns auto-ap.db.invoices
-  (:require [auto-ap.db.utils :refer [clj->db kebab->snake db->clj get-conn query limited-companies] :as utils]
+  (:require [auto-ap.db.utils :refer [clj->db kebab->snake db->clj get-conn query] :as utils]
             [auto-ap.parse :as parse]
             [auto-ap.db.companies :as companies]
             [auto-ap.db.invoices-checks :as invoices-checks]

src/clj/auto_ap/db/transactions.clj

@@ -4,7 +4,7 @@
             [honeysql.helpers :as helpers]
             [honeysql-postgres.format :as postgres-format]
             [honeysql-postgres.helpers :as postgres-helpers]
-            [auto-ap.db.utils :refer [clj->db kebab->snake db->clj get-conn query limited-companies] :as utils]))
+            [auto-ap.db.utils :refer [clj->db kebab->snake db->clj get-conn query] :as utils]))
 
 (def base-query (sql/build :select :*
                            :from :transactions))

src/clj/auto_ap/db/utils.clj

@@ -68,14 +68,3 @@
   (let [formatted (sql/format q)]
     (println "Executing query " q " SQL: " formatted)
     (j/execute! (get-conn) formatted)))
-
-(defn limited-companies [id]
-  (cond
-    (= (:role id) "none")
-    []
-
-    (= (:role id) "admin")
-    nil
-
-    (= (:role id) "user")
-    (:companies id [])))