Index: openacs-4/packages/imsld/lib/imsld-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/imsld-chunk.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/imsld/lib/imsld-chunk.tcl	16 May 2006 09:24:35 -0000	1.8
+++ openacs-4/packages/imsld/lib/imsld-chunk.tcl	29 May 2006 15:10:52 -0000	1.9
@@ -4,6 +4,7 @@
                           -package_id [dotlrn_community::get_package_id $community_id] \
                           -package_key "[imsld::package_key]"]
 set imsld_url "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]"
+set user_id [ad_conn user_id]
 
 template::list::create \
     -name imsld_runs \
@@ -33,22 +34,12 @@
 
 set cr_root_folder_id [imsld::cr::get_root_folder -community_id $community_id]
 
-db_multirow imsld_runs get_manifests "
-        select run.run_id,
-        coalesce(imsld.title, imsld.identifier) as imsld_title,
-	    to_char(ao.creation_date,'MM/DD/YYYY HH24:MI') as creation_date
-        from cr_items cr1, cr_items cr2, cr_items cr3, cr_items cr4, acs_objects ao,
-        imsld_runs run, imsld_cp_manifests icm, imsld_cp_organizations ico, imsld_imsldsi imsld 
-        where run.imsld_id = imsld.imsld_id
-        and ao.object_id = run.run_id
-        and cr1.live_revision = icm.manifest_id
-        and cr1.parent_id = cr4.item_id
-        and cr4.parent_id = :cr_root_folder_id
-        and ico.manifest_id = cr1.item_id
-        and imsld.organization_id = cr2.item_id
-        and cr2.live_revision = ico.organization_id
-        and cr3.live_revision = imsld.imsld_id
-        and run.status = 'active'
-        $orderby
-    " {}
+template::multirow create imsld_runs run_id imsld_title creation_date
 
+db_foreach active_runs { *SQL* } {
+        if { [llength [imsld::roles::get_user_roles -user_id $user_id -run_id $run_id]] } {
+            template::multirow append imsld_runs $run_id $imsld_title $creation_date
+        }
+}
+
+