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 @@
 		</querytext>
 	</fullquery>
 
+    <fullquery name="imsld::grant_permissions.is_forum">
+		<querytext>
+        select 1 
+        from forums_forums ff 
+        where ff.forum_id=:the_object_id 
+		</querytext>
+	</fullquery>
+
 	<fullquery name="imsld::grant_permissions.get_object_from_resource">
 		<querytext>
         select acs_object_id as the_object_id
@@ -432,6 +440,28 @@
 		</querytext>
 	</fullquery>
 
+    <fullquery name="imsld::finish_component_element.get_related_on_completion_id">
+		<querytext>
+            select on_completion_id as related_on_completion
+            from $table_name
+            where $element_name=:element_id and 
+                  on_completion_id is not null
+            
+		</querytext>
+	</fullquery>
+
+    <fullquery name="imsld::finish_component_element.get_related_resource_id">
+		<querytext>
+         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
+  		</querytext>
+	</fullquery>
+
     <fullquery name="imsld::finish_component_element.insert_element_entry">
 		<querytext>
                 insert into imsld_status_user (