Index: openacs-4/packages/imsld/www/admin/imsld-view-roles.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-view-roles.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-view-roles.adp	19 Sep 2006 11:02:01 -0000	1.1
@@ -0,0 +1,50 @@
+<master>
+
+<SCRIPT>
+    function confirmValue(myform){
+        myform.submit()
+    }
+</SCRIPT>
+<table  width="100%">
+  <tr>
+    <td>
+  <formtemplate id="choose_role"></formtemplate>
+    </td>
+    <td>
+    <h3>#imsld.Parent#</h3>
+
+    <if @parent_role_name@ not nil>
+        <ul>
+            <li><a href=@parent_role_link@>@parent_role_name@</a></li>
+        </ul>
+    </if>
+    <else>
+        <p>#imsld.The#</p>
+    </else>
+
+    <td>
+     &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+    </td>
+   <td>
+     <h3>#imsld.Descendant#</h3>
+     <ul>
+       <multiple name="subroles_names">
+         <li><a href=@subroles_names.rolelink@>@subroles_names.rolename@</a></li>
+       </multiple>
+      </ul>
+      <if @subroles_names:rowcount@ eq 0>
+      <p>#imsld.There#</p>
+      </if>
+    </td>
+   </td>
+  </tr>
+</table>
+
+<h3>#imsld.Groups#</h3>
+<listtemplate name="group_table"></listtemplate>
+<br><br>
+<a href="index">#imsld.Back#</a>
+<SCRIPT>
+  document.forms['choose_role'].elements['formbutton:ok'].style.display="none"
+</SCRIPT>
+
Index: openacs-4/packages/imsld/www/admin/imsld-view-roles.adp.orig
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/Attic/imsld-view-roles.adp.orig,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-view-roles.adp.orig	19 Sep 2006 11:02:01 -0000	1.1
@@ -0,0 +1,49 @@
+<master>
+
+<SCRIPT>
+    function confirmValue(myform){
+        myform.submit()
+    }
+</SCRIPT>
+<table  width="100%">
+  <tr>
+    <td>
+  <formtemplate id="choose_role"></formtemplate>
+    </td>
+    <td>
+    <h3>#imsld.Parent#</h3>
+
+    <if @parent_role_name@ not nil>
+        <ul>
+            <li><a href=@parent_role_link@>@parent_role_name@</a></li>
+        </ul>
+    </if>
+    <else>
+        <p>#imsld.The#</p>
+    </else>
+
+    <td>
+     &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+    </td>
+   <td>
+     <h3>#imsld.Descendant#</h3>
+     <ul>
+       <multiple name="subroles_names">
+         <li><a href=@subroles_names.rolelink@>@subroles_names.rolename@</a></li>
+       </multiple>
+      </ul>
+      <if @subroles_names:rowcount@ eq 0>
+      <p>#imsld.There#</p>
+      </if>
+    </td>
+   </td>
+  </tr>
+</table>
+
+<h3>#imsld.Groups#</h3>
+<listtemplate name="group_table"></listtemplate>
+<br><br>
+<a href="index">#imsld.Back#</a>
+<SCRIPT>
+  document.forms['choose_role'].elements['formbutton:ok'].style.display="none"
+</SCRIPT>
Index: openacs-4/packages/imsld/www/admin/imsld-view-roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-view-roles.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-view-roles.tcl	19 Sep 2006 11:02:01 -0000	1.1
@@ -0,0 +1,129 @@
+# /packages/imsld/www/admin/imsls-view-roles.tcl
+
+ad_page_contract {
+    Show the users asigned to roles when no further changes are possible
+    
+    @author lfuente@it.uc3m.es
+    @creation-date Sep 2006
+} {
+    role:optional
+    {group_instance 0}
+    run_id
+    members_list:optional
+    {finishable 0}
+} 
+
+db_1row get_imsld_info { 
+    select imsld_id
+    from imsld_runs
+    where run_id = :run_id
+}
+
+
+#get roles list
+set roles_list [imsld::roles::get_list_of_roles -imsld_id $imsld_id]
+set roles_list_names [imsld::roles::get_roles_names -roles_list $roles_list] 
+
+
+set lista [list]
+lappend lista [list "[_ imsld.Select_a_role]" 0]
+
+for {set order 0} {$order < [llength $roles_list] } {incr order} {
+    set lista_item [list [lindex $roles_list_names $order] [lindex [lindex $roles_list $order] 0]]
+    lappend lista $lista_item
+}
+
+ad_form -name choose_role -action imsld-view-roles -export {imsld_id run_id} -show_required_p {0} -form {
+                {role:integer(select)
+                   {label "[_ imsld.Select_a_role_1]"} 
+                   {options "$lista"}
+                {html {onChange confirmValue(this.form)}}
+               }
+} -on_request {
+     if {[info exists role]} {         
+         set role $role
+     }
+}
+
+if {![info exists role]} {
+    set role 0
+}
+ 
+set subroles_list [imsld::roles::get_subroles -role_id $role]
+
+if {![llength $subroles_list]} {
+    set subroles_list 0
+}
+db_multirow -extend {rolelink} subroles_names get_subroles_names "
+        SELECT object_title as rolename,
+               role_id as child_id
+        FROM imsld_rolesi
+        WHERE role_id in ([join $subroles_list ","])
+" {
+set rolelink [export_vars -base imsld-view-roles {{role $child_id} run_id}]
+}
+
+set parent_role [lindex [db_list_of_lists get_parent_role {select iri.object_title, 
+                                                 iri.role_id 
+                                          from imsld_rolesi iri, 
+                                               imsld_rolesi iri2 
+                                          where iri2.role_id=:role
+                                                and iri2.parent_role_id=iri.item_id
+}] 0]
+
+if {[llength $parent_role]} {
+    set parent_role_name [lindex $parent_role 0]
+    set parent_role_id [lindex $parent_role 1]
+    set parent_role_link [export_vars -base imsld-view-roles { {role $parent_role_id} run_id }]
+}
+
+
+set groups_list [db_list get_groups_list {  select gr.group_id 
+                                            from groups gr, 
+                                                acs_rels ar1, 
+                                                acs_rels ar2, 
+                                                imsld_run_users_group_ext iruge, 
+                                                imsld_rolesi iri 
+                                            where ar1.rel_type='imsld_roleinstance_run_rel' 
+                                                and ar1.object_id_one=gr.group_id 
+                                                and ar1.object_id_two=iruge.group_id 
+                                                and iruge.run_id=:run_id
+                                                and iri.role_id=:role
+                                                and iri.item_id=ar2.object_id_one 
+                                                and ar2.rel_type='imsld_role_group_rel' 
+                                                and ar2.object_id_two=gr.group_id
+} ]
+
+template::list::create \
+    -name group_table \
+    -multirow group_table \
+    -elements {
+        user_name {
+            label {User Name}
+        }
+        user_email {
+            label {e-mail}
+        }
+        group_name {
+            label {Group}
+        }
+    }
+
+if {![llength $groups_list]} {
+    set groups_list "0"
+}
+
+db_multirow group_table get_users_in_group "select pn.party_name as user_name, 
+                                                   u.username as user_email,
+                                                   gn.group_name
+                                            from party_names pn, 
+                                                 users u, 
+                                                 group_member_map gmm,
+                                                 groups gn
+                                            where gmm.member_id=u.user_id 
+                                                  and gmm.group_id in ([join $groups_list ","])
+                                                  and pn.party_id=gmm.member_id
+                                                  and gn.group_id=gmm.group_id
+                                             group by pn.party_name, u.username, gn.group_name" 
+
+
Index: openacs-4/packages/imsld/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/index.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/imsld/www/admin/index.tcl	25 Jul 2006 13:44:20 -0000	1.11
+++ openacs-4/packages/imsld/www/admin/index.tcl	19 Sep 2006 11:02:01 -0000	1.12
@@ -146,6 +146,7 @@
             set image_alt "[_ imsld.active]"
             set image_title "[_ imsld.active]"
             set image_path "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]/resources/active.png"
+            set manage "<a href=\"[export_vars -base "imsld-view-roles" { run_id }]\">[_ imsld.View_members]</a>" 
         }
         waiting {
             set image_alt "[_ imsld.waiting]"
@@ -158,6 +159,7 @@
             set image_alt "[_ imsld.stopped]"
             set image_title "[_ imsld.stopped]"
             set image_path "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]/resources/completed.png"
+            set manage "<a href=\"[export_vars -base "imsld-view-roles" { run_id }]\">[_ imsld.View_members]</a>" 
         }
     }    
 }