Index: openacs-4/packages/dotlrn/www/members-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/members-chunk.adp	14 Mar 2002 23:45:17 -0000	1.4
+++ openacs-4/packages/dotlrn/www/members-chunk.adp	15 Mar 2002 01:09:21 -0000	1.5
@@ -1,27 +1,39 @@
 <h3>Members of <%= [dotlrn_community::get_community_name $community_id] %></h3>
+
 <ul>
+
 <multiple name="users">
   <li>
     <%= [acs_community_member_link -user_id $users(user_id) -label "$users(first_names) $users(last_name)"] %>
 <if @read_private_data_p@ eq 1 or @user_id@ eq @users.user_id@>
     (<a href="mailto:@users.email@">@users.email@</a>)
 </if>
-
-&nbsp;
-
-<i>@users.rel_type@</i>
-
+    &nbsp;
+    <i>@users.rel_type@</i>
 <if @admin_p@ eq 1 or @user_id@ eq @users.user_id@>
-    &nbsp; <small>[<include src="deregister-link" url="deregister?user_id=@users.user_id@&referer=@referer@" label="Drop Membership">]</small></li>
+    &nbsp;
+    <small>[<include src="deregister-link" url="deregister?user_id=@users.user_id@&referer=@referer@" label="Drop Membership">]</small>
+  </li>
 </if>
 </multiple>
+
 <if @admin_p@ eq 1>
-  <p></p>
+  <br>
   <li>
     <form method="get" action="member-add">
       Add A Member: <input type="text" name="search_text"><input type="submit" value="search">
       <input type="hidden" name="referer" value="@referer@">
     </form>
   </li>
 </if>
+
+<if @site_wide_admin_p@ eq 1>
+  <br>
+  <li>
+    <a
+    href="/dotlrn/admin/users-add-to-community?users=@user_list@&referer=@referer@">Add
+    members to another community</a>
+  </li>
+</if>
+
 </ul>
Index: openacs-4/packages/dotlrn/www/members-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/members-chunk.tcl	8 Mar 2002 00:27:05 -0000	1.4
+++ openacs-4/packages/dotlrn/www/members-chunk.tcl	15 Mar 2002 01:09:21 -0000	1.5
@@ -12,9 +12,17 @@
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 
-set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id $community_id]
-set read_private_data_p [dotlrn::user_can_read_private_data_p $user_id]
+set referer [ns_conn url]
 
+set site_wide_admin_p [ad_permission_p -user_id $user_id [acs_magic_object "security_context_root"] "admin"]
+if {!$site_wide_admin_p} {
+    set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id $community_id]
+    set read_private_data_p [dotlrn::user_can_read_private_data_p $user_id]
+} else {
+    set admin_p 1
+    set read_private_data_p 1
+}
+
 if {![exists_and_not_null referer]} {
     if {[string equal $admin_p "t"] == 1} {
         set referer "one-community-admin"
@@ -28,7 +36,9 @@
 
 template::multirow create users rel_id rel_type user_id first_names last_name email
 
+set user_list [list]
 foreach user $list_of_users {
+    lappend user_list [lindex $user 2]
     template::multirow append users \
         [lindex $user 0] \
         [dotlrn_community::get_role_pretty_name_from_rel_type -rel_type [lindex $user 1]] \