           fk_appshare_application_id                     NUMBER,
           fk_appshare_schema_id                          NUMBER,
           application_environment                        VARCHAR2(200 BYTE),
-          database_schema_name                           VARCHAR2(200 BYTE),
           CONSTRAINT  APPSHARE_APPLICATION_SCHEMAS_PK    PRIMARY KEY (ID)
           )")
         ]

          (
          id                                               serial NOT NULL,
          fk_appshare_publisher_id                         integer,
          application_environment                          character varying,
          database_schema_name                             character varying,
          CONSTRAINT appshare_schemas_pkey    PRIMARY KEY (id)
          );


          content           (str (get content-records :ac) (get content-records :ac2))

          schema-id         (:fk_appshare_schema_id (sql-1 "select  fk_appshare_schema_id  from  appshare_application_schemas  where  application_environment = 'DEV' and fk_appshare_application_id = ?"  [id]))
          ]

      (do
        (clear-client-cache   app-session-id)

        (println (str "!getfilecontents        id: "        id))
        (println (str "!getfilecontents  schema-id: "   schema-id))
        (println (str "" ))

        (cond
          schema-id
          (sql "update  appshare_web_sessions  set fk_appshare_schema_id = ?  where  session_id = ?"  [schema-id   app-session-id])

          :else
          (do
            (sql "update  appshare_web_sessions  set fk_appshare_schema_id = NULL  where  session_id = ?"  [app-session-id])))

        {:value content}))

