Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.56 -r1.57
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	18 May 2007 18:22:41 -0000	1.56
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	1 Jun 2007 11:47:12 -0000	1.57
@@ -173,7 +173,29 @@
   #
   # conditional links
   #
-  Package instproc make_link {-privilege -link object method args} {
+  Package ad_instproc make_link {-privilege -link object method args} {
+    Creates conditionally a link for use in xowiki. When the generated link 
+    will be activated, the specified method of the object will be invoked.
+    make_link checks in advance, wether the actual user has enough 
+    rights to invoke the method. If not, this method returns empty.
+       
+    @param Object The object to which the link refers to. If it is a package_id it will base \
+        to the root_url of the package_id. If it is a page, it will base to the page_url
+    @param method Which method to use. This will be appended as "m=method" to the url. 
+
+    Examples for methods:
+     <ul>
+     <li>view: To view and existing page</li>
+     <li>edit: To edit an existing page</li>
+     <li>revisions: To view the revisions of an existing page</li>
+    </ul>
+
+    @param args List of attributes to be append to the link. Every element 
+    can be an attribute name, or a "name value" pair. Behaves like export_vars.
+
+    @return The link or empty
+    @see export_vars
+  } {
     my instvar id
  
     if {[info exists privilege]} {
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	31 May 2007 15:13:14 -0000	1.49
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	1 Jun 2007 11:47:12 -0000	1.50
@@ -73,7 +73,7 @@
     if {[my show_page_order]} {
       set field_list [linsert $field_list 2 page_order]
       if {[$data istype ::xowiki::PageInstance]} {
-        set s [$data get_field_type page_order "" ""]
+        set s [$data get_field_type page_order ""]
         if {$s ne ""} {
           my set f.page_order page_order:$s
         }