 
 
 (defn inform-clients-about-record  [schema  db-table   id]
-  (println (str "inform-clients-about-record: " schema " . " db-table))
+  ;(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 "    the-record: " the-record))
     ;(println (str "    Record Clients: " @clients-atom))
     (if clients-atom
 


(defn !saveblockly [{:keys [id   code   code-index  app-session-id] }]
  (do
    (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))
