Index: openacs-4/packages/imsld/www/imsld-tree.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-tree.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/www/imsld-tree.tcl	24 Apr 2006 11:04:14 -0000	1.6
+++ openacs-4/packages/imsld/www/imsld-tree.tcl	16 May 2006 09:24:35 -0000	1.7
@@ -2,7 +2,7 @@
     @author jopez@inv.it.uc3m.es
     @creation-date Mar 2006
 } {
-    imsld_id:integer,notnull
+    run_id:integer,notnull
 }
 
 # initialize variables
@@ -16,11 +16,12 @@
     select imsld.item_id as imsld_item_id,
     imsld.imsld_id,
     coalesce(imsld.title, imsld.identifier) as imsld_title
-    from imsld_imsldsi imsld
-    where imsld.imsld_id = :imsld_id
+    from imsld_imsldsi imsld, imsld_runs run
+    where imsld.imsld_id = run.imsld_id
+    and run.run_id = :run_id
 } 
 
-set next_activity_id [imsld::get_next_activity_list -imsld_item_id $imsld_item_id -user_id $user_id]
+set next_activity_id [imsld::get_next_activity_list -run_id $run_id -user_id $user_id]
 
 dom createDocument ul doc
 set dom_root [$doc documentElement]
@@ -35,7 +36,7 @@
 
 set activities_node [$doc createElement ul]
 
-imsld::generate_activities_tree -imsld_id $imsld_id \
+imsld::generate_activities_tree -run_id $run_id \
     -user_id $user_id \
     -next_activity_id_list $next_activity_id \
     -dom_node $activities_node \