 
 (defn delete-record-from-realtime-update  [ table-name    record-id     data-session-id ]
   (do
-    (println (str "delete-record-from-realtime-update: " ))
-    (println (str "              table-name: "       table-name))
-    (println (str "              record-id: "        record-id))
-    (println (str "              data-session-id: "  data-session-id))
+    ;(println (str "delete-record-from-realtime-update: " ))
+    ;(println (str "              table-name: "       table-name))
+    ;(println (str "              record-id: "        record-id))
+    ;(println (str "              data-session-id: "  data-session-id))
 
   (let [client-data-atom         (if server-side-realtime-clients  (get @server-side-realtime-clients  data-session-id))
         response-atom            (if client-data-atom  client-data-atom )

                             (sql-1 "select  dbms_lob.substr( application_code, 3000, 1 ) as ac, dbms_lob.substr( application_code, 3000, 3001 ) as ac2 from appshare_applications where id = ?" [id]))
          content (str (get content-records :ac) (get content-records :ac2))
          ]
      (println (str "id: " id))
      {:value content})))





(defn do-real [& {:keys [:table-name]}]
  ;(println "-real**: table name: " table-name)

  (create-realtime-trigger  :table-name  (get-table-name  table-name)))

