 
 (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',

        (swap! the-query assoc  :count         record-count)
        (swap! the-query assoc  :timestamp     query-time)

        (println (str "    clients: " @clients-atom))
        (doall (for [client @clients-atom]
                 (do
                   ;(println (str "    Client: " client))


(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]))
