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 @@
 		</querytext>
 	</fullquery>
 
+    <fullquery name="imsld::next_activity.get_cr_item_from_resource">
+		<querytext>
+            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'
+        </querytext>
+	</fullquery>
 
+
+	<fullquery name="imsld::next_activity.get_object_from_resource">
+		<querytext>
+        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
+		</querytext>
+	</fullquery>
+
 	<fullquery name="imsld::get_resource_from_object.get_resource">
 		<querytext>
         select resource_id