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.3 -r1.4
--- openacs-4/packages/courses/tcl/course-procs.xql	3 Feb 2005 22:41:27 -0000	1.3
+++ openacs-4/packages/courses/tcl/course-procs.xql	4 Feb 2005 23:05:52 -0000	1.4
@@ -41,12 +41,19 @@
 
 <fullquery name="course_catalog::has_relation.has_relation">      
       <querytext>
-            select object_id_two 
-	    from acs_rels where
-	    rel_type = 'course_catalog_rel' and object_id_one = :course_id
+            select count (rel_id)
+	    from acs_rels where rel_type = 'course_catalog_rel' and object_id_one = :course_id 
       </querytext>
 </fullquery>
 
+<fullquery name="course_catalog::com_has_relation.com_has_relation">      
+      <querytext>
+            select count (rel_id)
+	    from acs_rels where rel_type = 'course_catalog_rel' and object_id_two = :community_id
+      </querytext>
+</fullquery>
+
+
 <fullquery name="course_catalog::has_relation_rel_id.has_relation_rel_id">      
       <querytext>
             select rel_id