Commits

Anonymous committed 2f772a7

Backed out changeset b448500136a6

Comments (0)

Files changed (1)

 
 (defun get-request-action-name ()
   "Gets the name of the action from the request."
-  (request-parameter *action-string*))
+  (let* ((request-action-name (request-parameter *action-string*))
+	 (get/post-action-name (parameter *action-string*))
+	 (action-name (or request-action-name get/post-action-name)))
+    action-name))
 
 (defvar *ignore-missing-actions* t)