Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/index.tcl	5 Nov 2001 22:34:23 -0000	1.6
+++ openacs-4/packages/dotlrn/www/index.tcl	6 Nov 2001 21:46:51 -0000	1.7
@@ -9,6 +9,18 @@
     classes:multirow
 }
 
+# Check if this is a community type level thing
+if {[ad_parameter community_type_level_p] == 1} {
+    ad_returnredirect "one-community-type"
+    return
+}
+
+# Check if this is a community level thing
+if {[ad_parameter community_level_p] == 1} {
+    ad_returnredirect "one-community"
+    return
+}
+
 # Make sure user is logged in
 set user_id [ad_maybe_redirect_for_registration]