 ; ----------------------------------------------------------------
 (defn update-record-in-cache [db-table  id]
   (do
-    (println "Update record")
+    ;(println "Update record")
     (let [
           cached-record    (get-record-from-server-cache-for-id  db-table   id)
           fields           (get-fields-for-table   db-table)



(defn inform-clients-about-record  [schema  db-table   id]
  (println (str "inform-clients-about-record: " schema " . " db-table))
  (let [full-table-name    (str schema "." db-table)
         the-record        (get-record-from-server-cache-for-id  full-table-name  id )
        clients-atom      (:clients the-record)
        ]
    (println (str "    the-record: " the-record))
    ;(println (str "    Record Clients: " @clients-atom))
    (if clients-atom



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