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
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	8 Dec 2001 01:22:40 -0000	1.25
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	11 Dec 2001 03:19:48 -0000	1.26
@@ -180,6 +180,14 @@
 	return $node(object_id)
     }
 
+    ad_proc -public admin_p {
+        {-user_id ""}
+    } {
+        check if a user is admin for dotLRN
+    } {
+        return [ad_permission_p -user_id $user_id [dotlrn::get_package_id] admin]
+    }
+
     ad_proc -public get_users_rel_segment_id {} {
 	returns the rel_segment_id of the dotLRN users segment
     } {
Index: openacs-4/packages/dotlrn/www/index-not-a-user.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index-not-a-user.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/index-not-a-user.adp	29 Nov 2001 04:33:52 -0000	1.1
+++ openacs-4/packages/dotlrn/www/index-not-a-user.adp	11 Dec 2001 03:19:48 -0000	1.2
@@ -1,5 +1,7 @@
 <master src="master">
 <property name="title">dotLRN - Not a User</property>
 
+<if @admin_p@>Visit <a href=@admin_url@>dotLRN Administration</a>.<p>
+
 You are not registered as a dotLRN user.<br>
 You're going to have to wait to see what the admin does.
Index: openacs-4/packages/dotlrn/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.adp,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/index.adp	8 Dec 2001 04:41:42 -0000	1.9
+++ openacs-4/packages/dotlrn/www/index.adp	11 Dec 2001 03:19:48 -0000	1.10
@@ -1,6 +1,7 @@
 <master src="master">
 <property name="title">dotLRN</property>
 
+<if @admin_p@>Visit <a href=@admin_url@>dotLRN Administration</a>.<br>
 <a href=configure>Configure</a> this page.
 
 <p>
Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 03:08:21 -0000	1.16
+++ openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 03:19:48 -0000	1.17
@@ -22,6 +22,9 @@
 # Make sure user is logged in
 set user_id [ad_maybe_redirect_for_registration]
 
+set admin_p [dotlrn::admin_p]
+set admin_url [dotlrn::get_url]/admin
+
 # Permission dotLRN
 if {![dotlrn::user_can_browse_p]} {
     ns_log Notice "DOTLRN- CANNOT BROWSE!"