Index: openacs-4/packages/xowf/www/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/www/index.vuh,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xowf/www/index.vuh	23 Jul 2018 19:42:34 -0000	1.6
+++ openacs-4/packages/xowf/www/index.vuh	3 Sep 2024 15:37:55 -0000	1.7
@@ -1,21 +1,28 @@
 # -*- tcl -*-
 ::xowf::Package initialize -ad_doc {
 
-  This is the resolver for this package. It turns a request into
-  an object and executes the object with the computed method
+  This is the default resolver for the xowf package. In essence, it
+  determines from the provided method "m" a web-callable method via
+  the package specific "invoke" method, executes it and returns the
+  result to the requester.
 
   @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
   @creation-date July, 2006
   @cvs-id $Id$
 
 } -parameter {
-  {-m view}
-  {-folder_id:integer 0}
+  {-m:token view}
 }
-::$package_id log "--starting... [ns_conn url] [ns_conn query] (user_id [xo::cc user_id])"
-#	"form vars = [ns_set array [ns_getform]]"
+
+#set form_vars [expr {[ns_getform] ne "" ? [ns_set keys [ns_getform] *_.*] : ""}]
+set form_vars [expr {[ns_getform] ne "" ? [ns_set array [ns_getform]] : ""}]
+
+::$package_id log "--starting... [ns_conn url] [ns_conn query]" \
+    "(user_id [xo::cc user_id])" \
+    "form vars = $form_vars"
 ::$package_id reply_to_user [::$package_id invoke -method $m]
-::$package_id log "--i ::$package_id DONE"
+::$package_id log "--done... [ns_conn url]"
+
 ad_script_abort
 
 # Local variables: