Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/index.tcl	3 Oct 2001 21:11:02 -0000	1.2
+++ openacs-4/packages/dotlrn/www/index.tcl	5 Oct 2001 15:14:29 -0000	1.3
@@ -9,7 +9,12 @@
     classes:multirow
 }
 
+if {[ad_parameter community_type_level_p] == 1} {
+    ns_returnredirect one-community-type
+    return
+}
+
 # Select the classes that exist
-db_multirow communities select_communities {}
+db_multirow classes select_classes {}
 
 ad_return_template