Add get_WEB_Action_Name from web arg

David RENÉ
1 parent 39ca95a4
Showing 1 changed file with 19 additions and 1 deletions Show diff stats
web/CXM_web_arg_utils.anubis
@@ -8,7 +8,7 @@
 transmit tools/basis.anubis
 transmit xlib/web/CXM_common.anubis
 transmit xlib/database/db_types.anubis
-
+transmit xlib/web/types/web_action_name.anubis
  
 public define One
   add_web_arg
@@ -600,3 +600,21 @@ public define Word8
   }.
  
  
+public define WEB_Action_Name
+  get_WEB_Action_Name
+  (
+    List(Web_arg) lwa,
+    String        controller,
+    String        action
+  )=
+  if get_String(lwa, action) is 
+  {
+    failure            then no_action
+    success(action_n)  then
+      if get_String(lwa, controller) is 
+      {
+        failure               then action_name(action_n)
+        success(controller_n) then controller_action(controller_n, action_n)
+      }
+  }
+.