                :user *database-user*
                :password *database-password*
                :naming {:keys string/upper-case
-                        :fields string/upper-case}})
-    )
-
-
-
-
+                        :fields string/upper-case}}))
 
 
   (catch Exception e




(defn get-count [db-table  where   params]
                                               (:cnt (sql-1 (str
                                                  "select count (id) as CNT from "







(defn get-results [& {:keys [db-table where order start end params]}]
  (sql
   (str
    "select id from "
    db-table " "
    (if (-> where count pos?) (str "where " where " "))
    (if (-> order count pos?) (str "order by " order " "))
    (cond
     (= *database-type* "postgres" )
     (str
      (if start (str " offset " (- start 1) " "))
      (if end (str " limit " (+ 1 (- end start)) " ") "limit 2")
      )

     (= *database-type* "oracle" )
     ""
     )
    ) params))




