Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.79 -r1.80
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	4 Dec 2002 09:51:03 -0000	1.79
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	29 May 2003 18:05:01 -0000	1.80
@@ -579,4 +579,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::get_type_package_id.select_package_id">
+        <querytext>
+            select package_id
+              from dotlrn_community_types
+              where community_type = :community_type
+        </querytext>
+    </fullquery>
+
 </queryset>