Index: openacs-4/packages/dotlrn-bboard/dotlrn-bboard.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/dotlrn-bboard.info,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-bboard/dotlrn-bboard.info	9 Oct 2001 04:13:13 -0000	1.3
+++ openacs-4/packages/dotlrn-bboard/dotlrn-bboard.info	25 Jan 2002 19:56:39 -0000	1.4
@@ -24,7 +24,8 @@
             <file type="tcl_procs" path="tcl/dotlrn-bboard-procs.tcl"/>
         </files>
         <parameters>
-        <!-- No version parameters -->
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="auto_create_forum_p"  default="t" description="Should we create a forum by default when added to a community?"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="auto_create_forum_name"  default="Discussions" description="The name of the auto created forum"/>
         </parameters>
 
     </version>
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.19 -r1.20
--- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	19 Jan 2002 18:32:21 -0000	1.19
+++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	25 Jan 2002 19:56:39 -0000	1.20
@@ -19,6 +19,11 @@
 
 namespace eval dotlrn_bboard {
     
+    ad_proc -private my_package_key {
+    } {
+        return "dotlrn-bboard"
+    }
+
     ad_proc -public applet_key {} {
 	get the applet key
     } {
@@ -32,13 +37,6 @@
 	return "bboard"
     }
 
-    ad_proc portal_element_key {
-    } {
-	return the portal element key
-    } {
-	return "bboard-portlet"
-    }
-
     ad_proc -public get_pretty_name {
     } {
 	returns the pretty name
@@ -66,9 +64,23 @@
 	set package_key [package_key]
 	set package_id [dotlrn::instantiate_and_mount -mount_point "forums" $community_id $package_key]
 
-	# 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
+        
+        set auto_create_forum_p [ad_parameter \
+                -package_id [apm_package_id_from_key [my_package_key]] \
+                "auto_create_forum_p" "f"]
 
+        set auto_create_forum_name [ad_parameter \
+                -package_id [apm_package_id_from_key [my_package_key]] \
+                "auto_create_forum_name" "Discussions"]
+
+	if {$auto_create_forum_p == "t"} {
+            # 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 $auto_create_forum_name \
+                    -context_id $package_id
+        }
+
 	# get the portal_template_id by callback
 	set pt_id [dotlrn_community::get_portal_template_id $community_id]