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.8 -r1.9
--- openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl	1 Nov 2001 23:12:05 -0000	1.8
+++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl	9 Nov 2001 19:42:44 -0000	1.9
@@ -65,15 +65,20 @@
 	set query "select pretty_name, description 
 	from dotlrn_communities
 	where community_id = $config(community_id)"
-		
-	# for now query the DM directly
-	if { [db_0or1row select_comminity_info $query] } {
-	    set data "$pretty_name - <i>descriptions not available yet</i>"
+
+	if { $config(shaded_p) == "f" } {
+		    
+	    # for now query the DM directly
+	    if { [db_0or1row select_comminity_info $query] } {
+		set data "$pretty_name - <i>descriptions not available yet</i>"
+	    } else {
+		set data "Community info not found. Contact webmaster, please!"
+	    }
+	    
+	    append data "<p><a href=student-list>List of Students</a>"
 	} else {
-	    set data "Community info not found. Contact webmaster, please!"
+	    set data ""
 	}
-
-	append data "<p><a href=student-list>List of Students</a>"
 	
 	return $data