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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/configure-2.tcl	9 Nov 2001 03:57:18 -0000	1.1
@@ -0,0 +1,33 @@
+
+ad_page_contract {
+    A simple target for the portal configuration
+    
+    @author Arjun Sanyal (arjun@openforce.net)
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-10-24
+} {
+
+}
+
+
+set form [ns_getform]
+set page_id [ns_set get $form portal_id]
+
+# Check if this is a community type level thing
+if {[ad_parameter community_type_level_p] == 1} {
+    ad_returnredirect "one-community-type"
+    return
+}
+
+
+# Make sure user is logged in
+set user_id [ad_maybe_redirect_for_registration]
+
+# If there is no page_id, this user is either a guest or something else
+if {![empty_string_p $page_id]} {
+    portal::configure_dispatch $page_id $form
+}
+
+ad_returnredirect "configure"
+
+