 
 
 (defn inform-clients-about-record  [db-table   id]
-  (println "inform-clients-about-record ")
+  ;(println "inform-clients-about-record ")
   (let [the-record        (get-record-from-server-cache-for-id  db-table  id )
         clients-atom      (:clients the-record)
         ]
-    (println (str "    the-record: " the-record))
-    (println (str "    Record Clients: " @clients-atom))
+    ;(println (str "    the-record: " the-record))
+    ;(println (str "    Record Clients: " @clients-atom))
 
     (doall (for [client @clients-atom]
              (do
-               (println (str "    Client: " client))
+               ;(println (str "    Client: " client))
                (let [the-client       (get @server-side-realtime-clients  client)
                      response-atom    (:update-request @the-client)
-                             ]
+                     ]
                  (if (not response-atom) (swap! response-atom assoc  :update-request (atom {})))
                  (swap! (:update-request @the-client) assoc-in [:records db-table id] {:timestamp (get the-record :timestamp)})
                  ;(println (str "    responses: " (if response-atom @response-atom)))

        db-table         (get realtime-log-entry :record_table_name)
        ]
    ;(println (str "**** Processing realtime record change: "))
    (println (str "      "  "realtime-log-entry"))
    (println (str "      "  realtime-log-entry))
    (println (str "      "))
    ;(println (str "      "  "@server-side-cached-queries"))
    ;(println (str "      "  @server-side-cached-queries))
    ;(println (str "      "))

              ""))
        ]
    (do
      ;(println "SQL::: " sql "," id)
      (sql-1  sql [id])
      )))

