Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.180.2.60 -r1.180.2.61
--- openacs-4/packages/xowiki/xowiki.info	19 Mar 2021 12:14:14 -0000	1.180.2.60
+++ openacs-4/packages/xowiki/xowiki.info	29 Mar 2021 08:34:18 -0000	1.180.2.61
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="5.10.0d76" url="http://openacs.org/repository/download/apm/xowiki-5.10.0d76.apm">
+    <version name="5.10.0d77" url="http://openacs.org/repository/download/apm/xowiki-5.10.0d77.apm">
 	<owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
 	<summary>A xotcl-based enterprise wiki system with multiple object types</summary>
 	<release-date>2017-08-06</release-date>
@@ -55,7 +55,7 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xowiki" version="5.10.0d76"/>
+	<provides url="xowiki" version="5.10.0d77"/>
 	<requires url="xotcl-core" version="5.10.0d38"/>
 	<requires url="acs-datetime" version="5.9.1"/>
 	<requires url="acs-kernel" version="5.9.1"/>
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.332.2.76 -r1.332.2.77
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	15 Mar 2021 21:58:10 -0000	1.332.2.76
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	29 Mar 2021 08:34:18 -0000	1.332.2.77
@@ -33,6 +33,7 @@
     folder.form
     link.form
     page.form
+    form.form
     import-archive.form
     photo.form
   }
Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.57.2.21 -r1.57.2.22
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	16 Mar 2021 22:09:49 -0000	1.57.2.21
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	29 Mar 2021 08:34:19 -0000	1.57.2.22
@@ -106,6 +106,28 @@
     return [expr {int(($length-1) * rand())}]
   }
 
+  ad_proc filter_option_list {option_list except} {
+
+    Process an option list (pairs of label and id)
+    suitable to be passed to several widgets and remove
+    all entries having an id from the except list.
+
+    @param option_list list of labels and ids
+    @param except list of interal ids
+    @return filtered option list
+  } {
+    if {[llength $except] == 0} {
+      return $option_list
+    }
+    return [lmap tuple $option_list {
+      if {[lindex $tuple 1] in $except} {
+        continue
+      }
+      set _ $tuple
+    }]
+  }
+
+
   #
   #
   # Helper for virus checks
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/xowiki/www/prototypes/form.form.page'.
Fisheye: No comparison available.  Pass `N' to diff?