Index: openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl	10 Nov 2001 02:39:24 -0000	1.10
+++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl	13 Nov 2001 17:57:19 -0000	1.11
@@ -75,7 +75,10 @@
 		set data "Community info not found. Contact webmaster, please!"
 	    }
 	    
-	    append data "<p><a href=student-list>List of Students</a>"
+	    # BIG BAD THING (fixme: ben)
+	    if {[dotlrn::user_can_read_sensitive_data_p]} {
+		append data "<p><a href=student-list>List of Students</a>"
+	    }
 	} else {
 	    set data ""
 	}