Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/index.tcl	5 Oct 2001 15:14:29 -0000	1.3
+++ openacs-4/packages/dotlrn/www/index.tcl	7 Oct 2001 19:21:08 -0000	1.4
@@ -14,6 +14,11 @@
     return
 }
 
+if {[ad_parameter community_level_p] == 1} {
+    ns_returnredirect one-community
+    return
+}
+
 # Select the classes that exist
 db_multirow classes select_classes {}