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]