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.1 -r1.2
--- openacs-4/packages/imsld/www/imsld-tree.tcl	13 Mar 2006 17:43:59 -0000	1.1
+++ openacs-4/packages/imsld/www/imsld-tree.tcl	22 Mar 2006 12:10:00 -0000	1.2
@@ -2,6 +2,7 @@
     @author jopez@inv.it.uc3m.es
     @creation-date Mar 2006
 } {
+    imsld_id:integer,notnull
 }
 
 # initialize variables
@@ -11,23 +12,12 @@
 set cr_root_folder_id [imsld::cr::get_root_folder -community_id $community_id]
 set user_id [ad_conn user_id]
 
-# Add the dhtml tree javascript to the HEAD.
-global dotlrn_master__header_stuff
-append dotlrn_master__header_stuff {
-    <script src="/resources/acs-templating/mktree.js" language="javascript"></SCRIPT>
-    <link rel="stylesheet" href="/resources/acs-templating/mktree.css" media="all">
-}
-
 db_1row imslds_in_class {
     select imsld.item_id as imsld_item_id,
     imsld.imsld_id,
     coalesce(imsld.title, imsld.identifier) as imsld_title
-    from imsld_cp_manifestsx icm, imsld_cp_organizationsi ico, imsld_imsldsi imsld, cr_items cr
-    where content_revision__is_live(imsld.imsld_id) = 't'
-    and icm.parent_id = cr.item_id
-    and cr.parent_id = :cr_root_folder_id
-    and ico.manifest_id = icm.item_id
-    and imsld.organization_id = ico.item_id
+    from imsld_imsldsi imsld
+    where imsld.imsld_id = :imsld_id
 } 
 
 set next_activity_id [imsld::get_next_activity -imsld_item_id $imsld_item_id -user_id $user_id -community_id $community_id]