Index: openacs-4/packages/dotlrn-bboard/sql/oracle/dotlrn-bboard-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/sql/oracle/Attic/dotlrn-bboard-init.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-bboard/sql/oracle/dotlrn-bboard-init.sql	5 Oct 2001 15:23:33 -0000	1.1
@@ -0,0 +1,63 @@
+
+--
+-- The bboard applet for dotLRN
+-- copyright 2001, OpenForce
+-- distributed under GPL v2.0
+--
+--
+-- ben,arjun@openforce.net
+--
+-- 10/05/2001
+--
+
+
+declare
+	foo integer;
+begin
+	-- create the implementation
+	foo := acs_sc_impl.new (
+		'dotlrn_applet',
+		'dotlrn_bboard',
+		'dotlrn_bboard'
+	);
+
+	-- add all the hooks
+
+	-- AddApplet
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_bboard',
+	       'AddApplet',
+	       'dotlrn_bboard::add_applet',
+	       'TCL'
+	);
+
+	-- RemoveApplet
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_bboard',
+	       'RemoveApplet',
+	       'dotlrn_bboard::remove_applet',
+	       'TCL'
+	);
+
+	-- AddUser
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_bboard',
+	       'AddUser',
+	       'dotlrn_bboard::add_user',
+	       'TCL'
+	);
+
+	-- RemoveUser
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_bboard',
+	       'RemoveUser',
+	       'dotlrn_bboard::remove_user',
+	       'TCL'
+	);
+end;
+/
+show errors
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	5 Oct 2001 15:23:33 -0000	1.1
@@ -0,0 +1,108 @@
+
+
+#
+# Procs for DOTLRN Bboard Applet
+# Copyright 2001 OpenForce, inc.
+# Distributed under the GNU GPL v2
+#
+# October 5th, 2001
+#
+
+ad_library {
+    
+    Procs to set up the dotLRN Bboard applet
+    
+    @author ben@openforce.net,arjun@openforce.net
+    @creation-date 2001-10-05
+    
+}
+
+namespace eval dotlrn_bboard {
+    
+    ad_proc -public package_key {
+    } {
+	get the package_key this applet deals with
+    } {
+	return "bboard"
+    }
+
+    ad_proc portal_element_key {
+    } {
+	return the portal element key
+    } {
+	return "bboard-portlet"
+    }
+
+    ad_proc -public add_applet {
+	community_id
+    } {
+	Add the bboard applet
+    } {
+	# Callback to get node_id from community
+	# REVISIT this (ben)
+	set node_id [site_node_id [ad_conn url]]
+
+	# create the bboard package instance (all in one, I've mounted it)
+	set package_key [package_key]
+	set package_id [site_node_mount_application -return package_id $node_id $package_key $package_key $package_key]
+
+	# set up a forum inside that instance
+	bboard_forum_new -context_id $package_id -short_name "Discussions"
+
+	# return the package_id
+	return $package_id
+    }
+
+    ad_proc -public remove_applet {
+	community_id
+	package_id
+    } {
+	remove the applet from the community
+    } {
+	# Remove all instances of the bboard portlet! (this is some serious stuff!)
+
+	# Dropping all messages, forums
+
+	# Killing the package
+    
+    }
+
+    ad_proc -public add_user {
+	community_id
+	user_id
+    } {
+	Add a user to a community
+    } {
+	# Get the page_id by callback
+	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]
+
+	# Allow user to see the bboard forums
+	# nothing for now
+
+	# Call the portal element to be added correctly
+	bboard_portlet::add_self_to_page $page_id $package_id
+    }
+
+    ad_proc -public remove_user {
+	community_id
+	user_id
+    } {
+	Remove a user from a community
+    } {
+	# Get the page_id
+	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]
+
+	# Remove the portal element
+	bboard_portlet::remove_self_from_page $page_id $package_id
+
+	# remove user permissions to see bboards
+	# nothing to do here
+    }
+	
+}