Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -N -r1.169.2.2 -r1.169.2.3
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	20 Mar 2003 10:33:22 -0000	1.169.2.2
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	20 Mar 2003 11:27:21 -0000	1.169.2.3
@@ -145,7 +145,7 @@
     } {
         get the type's package_id 
     } {
-        db_string select_package_id {}
+        return [db_string select_package_id {}]
     }
 
     ad_proc -public get_type_node_id {
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 -N -r1.78.2.1 -r1.78.2.2
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	17 Oct 2002 12:23:12 -0000	1.78.2.1
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	20 Mar 2003 11:27:22 -0000	1.78.2.2
@@ -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>