 
 (defn !saveblockly [{:keys [id   code   code-index  app-session-id] }]
   (do
-    (println (str "***********id: " id))
+    ;(println (str "***********id: " id))
     (cond
       (= 1 code-index)
       (sql "update  appshare_applications  set  code_format='blockly',


(defn !savecode [{:keys [id   code  code-index   app-session-id] }]
  (do
    (println (str "***********id: " id))
    (if (= 1 code-index)
      (sql "update  appshare_applications  set  code_format='text', application_code = '',
           blockly_xml = NULL where  id = ?" [id]))



(defn get-fields-for-table   [db-table]
    ;(println (pr-str "get-fields-for-table: " db-table))
  (let [fields-atom          (get @server-datasource-fields  db-table)
        fields-entry         (if fields-atom (into [] @fields-atom))   ]

    ;(println (pr-str "Read fields: " fields-entry))

    (if fields-entry
      fields-entry
