Index: openacs-4/packages/courses/tcl/course-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/tcl/course-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/courses/tcl/course-procs.xql	8 Feb 2005 23:07:52 -0000	1.5
+++ openacs-4/packages/courses/tcl/course-procs.xql	9 Feb 2005 22:54:02 -0000	1.6
@@ -113,9 +113,24 @@
       </querytext>
 </fullquery>
 
+<fullquery name="course_catalog::check_rev_assoc.revision_count">
+      <querytext>
+	    select count(revision_id) from cr_revisions where item_id = :item_id
+      </querytext>
+</fullquery>
 
-</queryset>
+<fullquery name="course_catalog::check_rev_assoc.association_count">
+      <querytext>
+	    select count(rel_id) from acs_rels where object_id_one in (
+		select revision_id from cr_revisions where item_id = :item_id )
+      </querytext>
+</fullquery>
 
+<fullquery name="course_catalog::course_delete.relation">
+      <querytext>
+	    select rel_id from acs_rels where object_id_one in (
+		select revision_id from cr_revisions where item_id = :item_id )
+      </querytext>
+</fullquery>
 
-
-
+</queryset>