Anubis / Xlib

Commit 4cc2911c9c2cf014df66db453d8e45f830244203

Authored by David RENÉ
1 parent 20045d09

add 3 reserved keywords in session : 

AWS_CURRENT_DICTIONARY
AWS_WEB_SITE_PUBLIC_DIR
AWS_WEB_SITE_DIR
Showing 1 changed file with 10 additions and 1 deletions   Show diff stats
Inline Side-by-side
web/CXM_web_session.anubis
  Show/Hide comments   View file @4cc2911
... ... @@ -22,7 +22,10 @@ read CXM_web_dump.anubis
22 22 "AWS_CURRENT_SPACE" String current web space in application
23 23 "AWS_CURRENT_CONTENT" String current in the web space
24 24 "AWS_CURRENT_PAGE_RENDERER" String current page renderer
25   -
  25 + "AWS_CURRENT_DICTIONARY" String current dictionary name used for the application
  26 + "AWS_WEB_SITE_PUBLIC_DIR" String
  27 + "AWS_WEB_SITE_DIR" String
  28 +
26 29 //"AWS_CURRENT_LEFT_MENU" Left_Menu current left menu on the page
27 30 //"AWS_CURRENT_MENU" Menu current menu, on the top of the page
28 31  
... ... @@ -73,6 +76,11 @@ public define WEB_Session_No_Var
73 76 "AWS_CURRENT_CONTENT" String current in the web space
74 77 "AWS_CURRENT_PAGE_RENDERER" String current page renderer
75 78  
  79 +
  80 +public define One set_web_site_directory(WEB_Session s, String n) = replace_String(s.fields, "AWS_WEB_SITE_DIR", n).
  81 +public define One set_web_site_directory(Var(List(Session_Field)) fields, String n) = replace_String(fields, "AWS_WEB_SITE_DIR", n).
  82 +public define String get_web_site_directory(WEB_Session s) = get_String (s.fields, "AWS_WEB_SITE_DIR", "").
  83 +
76 84 public define One set_web_app(WEB_Session s, String n) = replace_String(s.fields, "AWS_CURRENT_APP", n).
77 85 public define One set_web_app(Var(List(Session_Field)) fields, String n) = replace_String(fields, "AWS_CURRENT_APP", n).
78 86 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)
103 111 public define $T get_Serialized_type(WEB_Session s, String n, $T default) = get_Serialized_type(s.fields, n, default).
104 112 public define One remove_Serialized_type(WEB_Session s, String n) = remove_Serialized_type(s.fields, n).
105 113  
  114 +
106 115 public define String
107 116 dump_WEB_Session_Fields
108 117 (
... ...