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 -r1.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Oct 2001 14:35:58 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Oct 2001 15:49:17 -0000	1.8
@@ -232,6 +232,15 @@
     } {
 	return [db_string select_package_id {} -default ""]
     }
+
+    ad_proc -public get_applet_package_id {
+	community_id
+	applet_key
+    } {
+	get the package ID for a particular community
+    } {
+	return [db_string select_package_id {} -default ""]
+    }
     
     ad_proc -public add_applet {
 	community_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 -r1.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	9 Oct 2001 14:35:58 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	9 Oct 2001 15:49:17 -0000	1.3
@@ -109,6 +109,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_applet_package_id.select_package_id">
+<querytext>
+select package_id from dotlrn_community_applets where community_id= :community_id and applet_key= :applet_key
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::add_applet.insert_applet">
 <querytext>
 insert into dotlrn_community_applets
Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	9 Oct 2001 03:43:38 -0000	1.2
+++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	9 Oct 2001 15:49:10 -0000	1.3
@@ -84,7 +84,7 @@
 	set page_id [dotlrn_community::get_page_id $community_id $user_id]
 	
 	# Get the package_id by callback
-	set package_id [dotlrn_community::get_package_id $community_id]
+	set package_id [dotlrn_community::get_applet_package_id $community_id dotlrn_bboard]
 
 	# Allow user to see the bboard forums
 	# nothing for now