 
 (defn get-id-type [ column-type ]
   (do
-    (println (str "*******COLTYPE:" column-type ":"))
+    ;(println (str "*******COLTYPE:" column-type ":"))
     (cond
     (= column-type "NUMBER")                       "INTEGER"
     (= column-type "integer")                      "INTEGER"

                             (sql-1 "select  dbms_lob.substr( application_code, 3000, 1 ) as ac, dbms_lob.substr( application_code, 3000, 3001 ) as ac2 from appshare_applications where id = ?" [id]))
          content (str (get content-records :ac) (get content-records :ac2))
          ]
      (println (str "id: " id))
      {:value content})))



(defn    get-count    [db-table  where   params]

  (do
    ;(println (str "db-table: " db-table))
    ;(println (str "where: " where))
    ;(println (str "params: " params))

    (:cnt (sql-1 (str
                  "select count (id) as CNT from "
