Index: openacs-4/packages/imsld/www/admin/imsld-role-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-role-confirm.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/admin/imsld-role-confirm.tcl	30 Mar 2006 16:32:28 -0000	1.2
+++ openacs-4/packages/imsld/www/admin/imsld-role-confirm.tcl	24 Apr 2006 09:40:20 -0000	1.3
@@ -54,11 +54,11 @@
         foreach role_notallowed $not_allowed {
             lappend not_allowed_name [acs_user::get_element -user_id $role_notallowed -element name]
         }
-        ns_log Notice "nombres: $not_allowed_name"
+
         set parent_role [imsld::roles::get_parent_role -role_id $role]
         set parent_role_name [imsld::roles::get_roles_names -roles_list [list [list $parent_role 0]]]
 
-        ns_log Notice "padre $parent_role_name"
+
         
         set mensaje "<p>Members $not_allowed_name are already members of other subroles of role $parent_role_name.</p>
                      <p>Current UoL does not allow to include them in more than one subroles of the role.</p>
Index: openacs-4/packages/imsld/www/admin/imsld-role-members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-role-members.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/admin/imsld-role-members.tcl	30 Mar 2006 16:32:28 -0000	1.2
+++ openacs-4/packages/imsld/www/admin/imsld-role-members.tcl	24 Apr 2006 09:40:20 -0000	1.3
@@ -46,7 +46,7 @@
     if {![llength $members_list]} {
        set members_list 0 
     }
-
+    set community_id  [dotlrn_community::get_community_id]
     set not_members_list [db_list get_not_members_list {}]
     if {![llength $not_members_list]} {
        set not_members_list 0 
Index: openacs-4/packages/imsld/www/admin/imsld-role-members.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-role-members.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/admin/imsld-role-members.xql	30 Mar 2006 16:32:28 -0000	1.2
+++ openacs-4/packages/imsld/www/admin/imsld-role-members.xql	24 Apr 2006 09:40:20 -0000	1.3
@@ -22,9 +22,12 @@
     <fullquery name="get_not_members_list">
 		<querytext>
         select aua.user_id
-        from acs_users_all aua
-        where user_id > 0
-              and not (user_id in ([join $members_list ","]))
+        from acs_users_all aua,
+             dotlrn_member_rels_approved dmra
+        where aua.user_id > 0
+              and not (aua.user_id in ([join $members_list ","]))
+              and aua.user_id=dmra.user_id
+              and dmra.community_id=:community_id
 		</querytext>
 	</fullquery>