Index: openacs-4/packages/forums/tcl/forums-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.xql,v
diff -u -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/forums/tcl/forums-procs.xql	19 Jul 2005 21:43:13 -0000	1.5.2.2
+++ openacs-4/packages/forums/tcl/forums-procs.xql	10 Oct 2005 12:59:35 -0000	1.5.2.3
@@ -56,4 +56,12 @@
         </querytext>
     </fullquery>
  
+    <fullquery name="forum::get_forum_package.get_forum_package_id">
+        <querytext>
+    SELECT b.object_id as package_id 
+    FROM acs_objects as a,acs_objects as b  
+    WHERE a.context_id=:community_id and a.object_type='apm_package' and a.object_id=b.context_id and b.title='Forums';
+        </querytext>
+    </fullquery>
+
 </queryset>