Index: openacs-4/contrib/packages/portal/lib/configure-private-portals.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/lib/configure-private-portals.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/packages/portal/lib/configure-private-portals.tcl	12 Mar 2004 04:54:03 -0000	1.1
+++ openacs-4/contrib/packages/portal/lib/configure-private-portals.tcl	16 Mar 2004 01:10:12 -0000	1.2
@@ -4,15 +4,15 @@
 }
 
 ad_form -name configure-private-portals -form {
-    {create_private_portals_p:boolean(radio)
+    {CreatePrivatePortals:boolean(radio)
         {label "Create a portal for every user?"}
         {options {{Yes 1} {No 0}}}
     }
 } -on_request {
-    set create_private_portals_p [parameter::get -boolean -parameter create_private_portals_p]
-    ad_set_form_values create_private_portals_p
+    set CreatePrivatePortals [parameter::get -boolean -parameter CreatePrivatePortals]
+    ad_set_form_values CreatePrivatePortals
 } -on_submit {
-    parameter::set_value -parameter create_private_portals_p -value $create_private_portals_p
+    parameter::set_value -parameter CreatePrivatePortals -value $CreatePrivatePortals
     template::wizard::forward
 }