Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.183.2.3.4.12 -r1.183.2.3.4.13
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Nov 2004 00:52:01 -0000	1.183.2.3.4.12
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	4 Mar 2005 17:54:32 -0000	1.183.2.3.4.13
@@ -1215,6 +1215,12 @@
         if {[empty_string_p $user_id]} {
             set user_id [ad_get_user_id]
         }
+
+	set show_drop_link_p [parameter::get_from_package_key \
+				  -package_key dotlrn-portlet \
+				  -parameter AllowMembersDropGroups \
+				  -default 0]
+
         foreach sc_id [get_subcomm_list -community_id $community_id] {
             if {[has_subcommunity_p -community_id $sc_id] \
                     && [member_p $sc_id $user_id]} {
@@ -1223,8 +1229,10 @@
                 set url [get_community_url $sc_id]
                 append chunk "$pretext <a href=$url>[get_community_name $sc_id]</a>\n"
 
-		append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\">[_ dotlrn.Drop]</a>)\n"
-		 
+		if {$show_drop_link_p} {
+		    append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\">[_ dotlrn.Drop]</a>)\n"
+		}
+
                 append chunk "<ul>\n[get_subcomm_chunk -community_id $sc_id -user_id $user_id -only_member_p $only_member_p]</ul>\n"
             } elseif {[member_p $sc_id $user_id] || [not_closed_p -community_id $sc_id]} {
 
@@ -1265,8 +1273,9 @@
                 }  elseif {[member_p $sc_id $user_id]} {
 
 		    # User is a member.
-		    append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\">[_ dotlrn.Drop]</a>)\n"
-		    
+		    if {$show_drop_link_p} {
+			append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\">[_ dotlrn.Drop]</a>)\n"
+		    }
 		}
             }
         }