Index: openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	8 Dec 2001 01:22:40 -0000	1.10
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	11 Dec 2001 03:19:48 -0000	1.11
@@ -32,14 +32,15 @@
 
     # Grantee
     set grantee_id [dotlrn::get_full_users_rel_segment_id]
-
     set package_id [dotlrn::get_package_id]
 
     # Grant the permission
-    if {![ad_permission_p -user_id $grantee_id $package_id dotlrn_browse]} {
-        ad_permission_grant $grantee_id $package_id dotlrn_browse
-    }
+    ad_permission_grant $grantee_id $package_id dotlrn_browse
 
+    # check read permission on dotLRN for all users
+    set grantee_id [dotlrn::get_users_rel_segment_id]
+    ad_permission_grant $grantee_id $package_id read
+
     # We go through all Applets and make sure they are added.
 
     # The applet_add proc in the dotlrn_applet contract is for one-time