Index: openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl	4 Dec 2002 09:51:04 -0000	1.7
+++ openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl	22 Oct 2003 13:57:19 -0000	1.8
@@ -19,18 +19,17 @@
 
     @author Arjun Sanyal (arjun@openforce.net)
     @version $Id$
-} -query {
+} {
+    portal_id:integer
+    return_url
+    anchor
 }
+
 ns_log warning "starting one-community-portal-configure"
-set form [ns_getform]
-set portal_id [ns_set get $form portal_id]
-set return_url [ns_set get $form return_url]
-set anchor [ns_set get $form anchor]
+
 ns_log warning "about to call dispatch"
-portal::configure_dispatch -portal_id $portal_id -form $form
 
-#ad_return_complaint 1 "one-community-portal-configure?portal_id=$portal_id&referer=$return_url#$anchor"
-#ad_script_abort
+portal::configure_dispatch -portal_id $portal_id -form [ns_getform]
 
-ns_returnredirect "one-community-portal-configure?portal_id=$portal_id&referer=$return_url#$anchor"
+ad_returnredirect "one-community-portal-configure?portal_id=$portal_id&referer=$return_url#$anchor"