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 { - - -} - 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]