Index: openacs-4/packages/xowiki/xowiki.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v diff -u -N -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 @@ t xowiki - + Gustaf Neumann A xotcl-based enterprise wiki system with multiple object types 2017-08-06 @@ -55,7 +55,7 @@ BSD-Style 2 - + 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 -N -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 -N -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 Index: openacs-4/packages/xowiki/www/prototypes/form.form.page =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/prototypes/Attic/form.form.page,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/xowiki/www/prototypes/form.form.page 29 Mar 2021 08:34:19 -0000 1.1.2.1 @@ -0,0 +1,11 @@ +# -*- tcl-*- +::xowiki::Form new \ + -set name en:form.form \ + -title "Wiki Form" \ + -set anon_instances f \ + -set text {@_text@} \ + -set form {
@_name@ @_page_order@ @_title@ @_creator@ @_text@ @form@ @form_constraints@ @_description@ @_nls_language@
} \ + -set form_constraints {} + + +