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.9 -r1.10
--- openacs-4/packages/imsld/tcl/imsld-procs.xql 8 Feb 2006 17:37:59 -0000 1.9
+++ openacs-4/packages/imsld/tcl/imsld-procs.xql 9 Feb 2006 13:28:06 -0000 1.10
@@ -235,6 +235,14 @@
+
+
+ select 1
+ from forums_forums ff
+ where ff.forum_id=:the_object_id
+
+
+
select acs_object_id as the_object_id
@@ -432,6 +440,28 @@
+
+
+ select on_completion_id as related_on_completion
+ from $table_name
+ where $element_name=:element_id and
+ on_completion_id is not null
+
+
+
+
+
+
+ select ar2.object_id_two as related_resource
+ from acs_rels ar1,
+ acs_rels ar2
+ where ar2.object_id_one=ar1.object_id_two and
+ ar2.rel_type='imsld_item_res_rel' and
+ ar1.rel_type='imsld_feedback_rel' and
+ ar1.object_id_one=:related_on_completion
+
+
+
insert into imsld_status_user (