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.7 -r1.8
--- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	26 Nov 2001 22:37:06 -0000	1.7
+++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	29 Nov 2001 07:00:19 -0000	1.8
@@ -19,6 +19,12 @@
 
 namespace eval dotlrn_bboard {
     
+    ad_proc -public applet_key {} {
+	get the applet key
+    } {
+	return "dotlrn_bboard"
+    }
+
     ad_proc -public package_key {
     } {
 	get the package_key this applet deals with
@@ -49,8 +55,8 @@
 	set package_key [package_key]
 	set package_id [dotlrn::instantiate_and_mount $community_id $package_key]
 
-	# set up a forum inside that instance
-	bboard_forum_new -bboard_id $package_id -short_name "Discussions"
+	# set up a forum inside that instance, with context set to the package ID of the bboard package
+	bboard_forum_new -bboard_id $package_id -short_name "Discussions" -context_id $package_id
 
 	# get the portal_template_id by callback
 	set pt_id [dotlrn_community::get_portal_template_id $community_id]
@@ -115,7 +121,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 [applet_key]]
 
 	# Remove the portal element
 	bboard_portlet::remove_self_from_page $page_id $package_id