Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/index.tcl	1 Dec 2001 23:16:27 -0000	1.11
+++ openacs-4/packages/dotlrn/www/index.tcl	6 Dec 2001 20:50:51 -0000	1.12
@@ -7,16 +7,23 @@
 } {
 }
 
+ns_log notice "XXX0"
+
 # Check if this is a community type level thing
 if {[ad_parameter community_type_level_p] == 1} {
+    ns_log notice "XXX0.5"
     ad_returnredirect "one-community-type"
-    return
+    ns_log notice "XXX0.55"
+    ad_script_abort
+    ns_log notice "XXX0.60"
 }
 
+ns_log notice "XXX1"
+
 # Check if this is a community level thing
 if {[ad_parameter community_level_p] == 1} {
     ad_returnredirect "one-community"
-    return
+    ad_script_abort
 }
 
 # Make sure user is logged in
@@ -34,5 +41,4 @@
     set rendered_page [dotlrn::render_page $portal_id]
 }
 
-
 ad_return_template