Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.112 -r1.113
--- openacs-4/packages/xowiki/xowiki.info	17 Feb 2009 13:47:49 -0000	1.112
+++ openacs-4/packages/xowiki/xowiki.info	25 Mar 2009 14:01:51 -0000	1.113
@@ -10,11 +10,11 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="0.113" url="http://openacs.org/repository/download/apm/xowiki-0.113.apm">
+    <version name="0.114" url="http://openacs.org/repository/download/apm/xowiki-0.114.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>A more generic xotcl-based wikis example with object types
 and subtypes based on the content repository (with category support)</summary>
-        <release-date>2009-02-17</release-date>
+        <release-date>2009-03-25</release-date>
         <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">&lt;pre&gt;
 XoWiki is a Wiki implementation for OpenACS in XOTcl. Instead of
@@ -56,7 +56,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xowiki" version="0.113"/>
+        <provides url="xowiki" version="0.114"/>
         <requires url="acs-datetime" version="4.0"/>
         <requires url="categories" version="1.0d3"/>
         <requires url="file-storage" version="4.7d3"/>
@@ -77,7 +77,7 @@
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="include_in_google_sitemap_index"  default="1" description="include the package in the google sitemap index"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="index_page"  description="name of the page to be shown when the package instance is browsed (e.g. en:index)" section_name="Pages"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="my_yahoo_publisher"  description="Name of the publisher, when posting urls to my yahoo (use in connection with with_yahoo_publisher)" section_name="Options"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="package_prefix"  description="Part of the URL used before language and page name. This setting is used, when an url is computed. Per default, the package_prefix is determined by the site node. When for example  a default xowiki instance is used as start page of openacs, the package_prefix can be set to /" section_name="URL"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="package_prefix"  description="Part of the URL used before language and page name. This setting is used, when an url is computed. Per default, the package_prefix is determined by the side not. When for example  a default xowiki instance is used as start page of openacs, the package_prefix can be set to /" section_name="URL"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="parameter_page"  description="::xowiki::FormPage to search for parameters. The page name has to contain a language prefix and can refer to a different xowiki instance.
 Example: //xowiki/en:xowiki-standard-parameter"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="production_mode"  default="0" description="When this parameter is set, new pages are created in a &quot;production&quot; state, where they are not visible to users. These page have to be released via the admin pages. Notifcation and syndication is decativated, while pages are under &quot;production&quot;."/>
Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.135 -r1.136
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	24 Mar 2009 14:15:39 -0000	1.135
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	25 Mar 2009 14:01:51 -0000	1.136
@@ -1300,6 +1300,7 @@
 
   Class radio -superclass enumeration -parameter {
     {horizontal false}
+    {forced_name}
   }
   radio instproc initialize {} {
     my set widget_type text(radio)
@@ -1310,7 +1311,8 @@
     foreach o [my options] {
       foreach {label rep} $o break
       set atts [my get_attributes disabled {CSSclass class}]
-      lappend atts id [my id]:$rep name [my name] type radio value $rep
+      if {[my exists forced_name]} {set name [my forced_name]} {set name [my name]}
+      lappend atts id [my id]:$rep name $name type radio value $rep
       if {$value eq $rep} {lappend atts checked checked}
       ::html::input $atts {}
       html::t "$label  "