Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 03:19:48 -0000	1.17
+++ openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 06:25:15 -0000	1.18
@@ -4,7 +4,10 @@
     @author Ben Adida (ben@openforce.net)
     @creation-date 2001-08-20
     @version $Id$
-} {
+} -query {
+} -properties {
+    admin_p:onevalue
+    admin_url:onevalue
 }
 
 # Check if this is a community type level thing
@@ -27,14 +30,12 @@
 
 # Permission dotLRN
 if {![dotlrn::user_can_browse_p]} {
-    ns_log Notice "DOTLRN- CANNOT BROWSE!"
-
     # Figure out if the user is a member of a community
     set communities [dotlrn_community::get_all_communities_by_user $user_id]
 
     if {[llength $communities] == 0} {
-        ad_return_template index-not-a-user
-        return
+        ad_returnredirect index-not-a-user
+        ad_script_abort
     }
 
     # For now, we assume only ONE community (FIXME: ben)