Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	10 Nov 2001 18:03:23 -0000	1.4
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	13 Nov 2001 17:57:30 -0000	1.5
@@ -87,20 +87,39 @@
     } {
 	Check is a user can browse dotLRN
     } {
+	if {[empty_string_p $user_id]} {
+	    set user_id [ad_conn user_id]
+	}
+
+	if {[user_get_role $user_id] == "guest"} {
+	    return 0
+	} else {
+	    return 1
+	}
     }
 
     ad_proc -public require_user_browse {
 	{user_id ""}
     } {
 	Require that a user be able to browse dotLRN
     } {
+
     }
 
     ad_proc -public user_can_read_sensitive_data_p {
 	{user_id ""}
     } {
 	Check if a user can read sensitive data in dotLRN
     } {
+	if {[empty_string_p $user_id]} {
+	    set user_id [ad_conn user_id]
+	}
+
+	if {[user_get_role $user_id] == "guest"} {
+	    return 0
+	} else {
+	    return 1
+	}
     }
 
     ad_proc -public require_user_read_sensitive_data {