Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/dotlrn/www/index.tcl	29 May 2002 04:45:23 -0000	1.36
+++ openacs-4/packages/dotlrn/www/index.tcl	2 Jun 2002 00:05:56 -0000	1.37
@@ -41,18 +41,6 @@
 }    
 
 set communities [dotlrn_community::get_all_communities_by_user $user_id]
-
-set access_level [db_string select_users_access_level {
-    select access_level
-    from dotlrn_users
-    where user_id = :user_id
-}]
-
-if {[string match $access_level limited] && [llength $communities] == 1} {
-    ad_returnredirect [ns_set get [lindex $communities 0] url]
-    ad_script_abort
-}
-
 if {![dotlrn::user_can_browse_p -user_id $user_id]} {
 
     if {[llength $communities] == 0} {