Index: openacs-4/packages/dotlrn/www/configure-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-2.tcl,v
diff -u -r1.13 -r1.13.2.1
--- openacs-4/packages/dotlrn/www/configure-2.tcl	19 Jan 2018 14:38:45 -0000	1.13
+++ openacs-4/packages/dotlrn/www/configure-2.tcl	7 Feb 2022 14:20:43 -0000	1.13.2.1
@@ -20,21 +20,18 @@
     @author Arjun Sanyal (arjun@openforce.net)
     @author Ben Adida (ben@openforce.net)
     @creation-date 2001-10-24
-} -query {
+} {
+    portal_id:naturalnum,notnull
+    anchor
 }
 
-
-set form [ns_getform]
-set portal_id [ns_set get $form portal_id]
-set anchor [ns_set get $form anchor]
-
 # Check if this is a community type level thing
 if {[parameter::get -parameter community_type_level_p] == 1} {
     ad_returnredirect "one-community-type"
     ad_script_abort
 }
 
-portal::configure_dispatch -portal_id $portal_id -form $form
+portal::configure_dispatch -portal_id $portal_id -form [ns_getform]
 
 ad_returnredirect "configure#$anchor"
 ad_script_abort