Index: openacs-4/packages/imsld/www/admin/imsld-import-roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-import-roles.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-import-roles.tcl	2 Dec 2008 17:32:04 -0000	1.1
@@ -0,0 +1,63 @@
+# 
+
+ad_page_contract {
+    
+    Import role members from file
+    
+    @author Derick Leony (derick@inv.it.uc3m.es)
+    @creation-date 2008-09-18
+    @arch-tag: b829df3b-3282-4044-988e-a2947bd238ab
+    @cvs-id $Id: imsld-import-roles.tcl,v 1.1 2008/12/02 17:32:04 derickl Exp $
+} {
+    role_url:trim,notnull
+    run_id:integer,notnull
+}
+
+array set response [ad_httpget -url $role_url]
+
+if { $response(status) != 200 } {
+    ad_return_complaint 1 "The provided URL could not be reached"
+    ad_script_abort
+}
+
+set content $response(page)
+
+set doc [dom parse $content]
+set root [$doc documentElement]
+
+set role_node_list [$root selectNodes {role-root}]
+
+set role_node ""
+if {[llength $role_node_list] != 1} {
+    ad_return_complaint 1 "There must be only one 'role-root' node in the XML."
+    ad_script_abort
+}
+
+set role_node [lindex $role_node_list 0]
+
+db_1row select_imsld_info { *SQL* }
+
+set imsldi_id [content::revision::item_id -revision_id $imsld_id]
+
+array set groups [imsld::roles::create_groups_from_dom -node $role_node -run_id $run_id -imsld_id $imsldi_id]
+
+foreach node [$root selectNodes {role-population/user}] {
+    set id [$node getAttribute {identifier}]
+    set user_id [party::get_by_email -email $id]
+    if { $user_id eq "" } {
+	continue
+    }
+    foreach group_node [$node selectNodes {role-occurrence-ref}] {
+	set group [$group_node getAttribute {ref}]
+	set group_id $groups($group)
+	while { 1 } {
+	    group::add_member -user_id $user_id -group_id $group_id	    
+	    if { ![db_0or1row select_parent_group { *SQL* }] } {
+		break
+	    }
+	}
+
+    }
+}
+
+ad_returnredirect [export_vars -base imsld-finish {run_id imsld_id}]
Index: openacs-4/packages/imsld/www/admin/imsld-import-roles.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-import-roles.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-import-roles.xql	2 Dec 2008 17:32:04 -0000	1.1
@@ -0,0 +1,29 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN"
+"http://www.thecodemill.biz/repository/xql.dtd">
+<!--  -->
+<!-- @author Derick Leony (derick@inv.it.uc3m.es) -->
+<!-- @creation-date 2008-12-02 -->
+<!-- @arch-tag:  -->
+<!-- @cvs-id $Id: imsld-import-roles.xql,v 1.1 2008/12/02 17:32:04 derickl Exp $ -->
+
+<queryset>
+  
+  <fullquery name="select_imsld_info">
+    <querytext>
+      select imsld_id
+      from imsld_runs
+      where run_id = :run_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="select_parent_group">
+    <querytext>
+      select object_id_one as group_id
+      from acs_rels ar
+      where ar.rel_type = 'composition_rel'
+      and ar.object_id_two = :group_id
+    </querytext>
+  </fullquery>
+
+</queryset>