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 -N -r1.6 -r1.7
--- openacs-4/packages/courses/tcl/course-procs.xql	9 Feb 2005 22:54:02 -0000	1.6
+++ openacs-4/packages/courses/tcl/course-procs.xql	12 Feb 2005 01:45:31 -0000	1.7
@@ -133,4 +133,13 @@
       </querytext>
 </fullquery>
 
+<fullquery name="course_catalog::get_categories_from_tree.get_categories">
+      <querytext>
+	   select om.category_id, om.object_id from category_object_map om where
+	   om.category_id in (select category_id from categories where tree_id =:tree_id)
+	   and om.object_id in (select live_revision from cr_items where content_type = 'course_catalog')
+      </querytext>
+</fullquery>
+
+
 </queryset>