Index: openacs-4/packages/imsld/tcl/imsld-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/imsld/tcl/imsld-procs.xql 6 Feb 2006 16:46:06 -0000 1.5
+++ openacs-4/packages/imsld/tcl/imsld-procs.xql 6 Feb 2006 17:07:44 -0000 1.6
@@ -1699,7 +1699,25 @@
+
+
+ select ar.object_id_two as the_object_id
+ from acs_rels ar
+ where ar.object_id_one=:the_resource_id and
+ ar.rel_type='imsld_res_files_rel'
+
+
+
+
+
+ select acs_object_id as the_object_id
+ from imsld_cp_resourcesi
+ where item_id = :the_resource_id and
+ acs_object_id is not null
+
+
+
select resource_id