diff --git a/web/CXM_web_session.anubis b/web/CXM_web_session.anubis index d011239..efe65ac 100644 --- a/web/CXM_web_session.anubis +++ b/web/CXM_web_session.anubis @@ -22,7 +22,10 @@ read CXM_web_dump.anubis "AWS_CURRENT_SPACE" String current web space in application "AWS_CURRENT_CONTENT" String current in the web space "AWS_CURRENT_PAGE_RENDERER" String current page renderer - + "AWS_CURRENT_DICTIONARY" String current dictionary name used for the application + "AWS_WEB_SITE_PUBLIC_DIR" String + "AWS_WEB_SITE_DIR" String + //"AWS_CURRENT_LEFT_MENU" Left_Menu current left menu on the page //"AWS_CURRENT_MENU" Menu current menu, on the top of the page @@ -73,6 +76,11 @@ public define WEB_Session_No_Var "AWS_CURRENT_CONTENT" String current in the web space "AWS_CURRENT_PAGE_RENDERER" String current page renderer + +public define One set_web_site_directory(WEB_Session s, String n) = replace_String(s.fields, "AWS_WEB_SITE_DIR", n). +public define One set_web_site_directory(Var(List(Session_Field)) fields, String n) = replace_String(fields, "AWS_WEB_SITE_DIR", n). +public define String get_web_site_directory(WEB_Session s) = get_String (s.fields, "AWS_WEB_SITE_DIR", ""). + public define One set_web_app(WEB_Session s, String n) = replace_String(s.fields, "AWS_CURRENT_APP", n). public define One set_web_app(Var(List(Session_Field)) fields, String n) = replace_String(fields, "AWS_CURRENT_APP", n). public define String get_web_app(WEB_Session s) = get_String (s.fields, "AWS_CURRENT_APP", ""). @@ -103,6 +111,7 @@ public define Maybe($T) get_Serialized_type(WEB_Session s, String n) public define $T get_Serialized_type(WEB_Session s, String n, $T default) = get_Serialized_type(s.fields, n, default). public define One remove_Serialized_type(WEB_Session s, String n) = remove_Serialized_type(s.fields, n). + public define String dump_WEB_Session_Fields ( -- libgit2 0.21.4