adding authorization

src/clj/auto_ap/db/utils.clj

@@ -68,3 +68,14 @@
   (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 [])))