Index: openacs-4/contrib/obsolete-packages/bboard/sql/oracle/bboard-packages.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/sql/oracle/bboard-packages.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/bboard/sql/oracle/bboard-packages.sql	11 Jan 2002 20:38:36 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/bboard/sql/oracle/bboard-packages.sql	9 Mar 2002 02:00:02 -0000	1.4
@@ -116,7 +116,7 @@
         creation_date in acs_objects.creation_date%TYPE default sysdate,
         creation_user in acs_objects.creation_user%TYPE default null,
         creation_ip   in acs_objects.creation_ip%TYPE   default null,
-        object_type   in acs_objects.object_type%TYPE   default 'acs_message'
+        object_type   in acs_objects.object_type%TYPE   default 'bboard_message'
     ) return acs_objects.object_id%TYPE;
 
     function message_p (
@@ -450,14 +450,15 @@
         creation_date in acs_objects.creation_date%TYPE default sysdate,
         creation_user in acs_objects.creation_user%TYPE default null,
         creation_ip   in acs_objects.creation_ip%TYPE   default null,
-        object_type   in acs_objects.object_type%TYPE   default 'acs_message'
+        object_type   in acs_objects.object_type%TYPE   default 'bboard_message'
     ) return acs_objects.object_id%TYPE
     is
         v_sent_date acs_messages.sent_date%TYPE;
+		v_message_id	bboard_messages.message_id%TYPE;
     begin
         v_sent_date := nvl(sent_date, sysdate);
 
-        return acs_message.new (
+		v_message_id := acs_message.new (
             message_id => message_id,
             reply_to => reply_to,
             sent_date => v_sent_date,
@@ -472,6 +473,13 @@
             creation_ip => creation_ip,
             object_type => object_type
         );
+
+		insert into bboard_messages
+		(message_id)
+		values
+		(v_message_id);
+
+		return v_message_id;
     end new;
 
     function message_p (
@@ -481,7 +489,7 @@
         v_check_message_id integer;
     begin
         select count(message_id) into v_check_message_id
-            from acs_messages
+            from bboard_messages
             where message_id = message_p.message_id;
         if v_check_message_id = 1 then
             return 't';
@@ -641,7 +649,7 @@
         image_p	     number;
     begin
 	for child_val in messages_children loop
-	    if child_val.object_type = 'acs_message' then
+	    if child_val.object_type = 'bboard_message' then
 	       acs_message.delete(child_val.child_id);
 	    elsif child_val.object_type = 'content_item' then
 		select count(*) into image_p
@@ -672,7 +680,7 @@
         image_p	     number;
     begin
 	for child_val in messages_children loop
-	    if child_val.object_type = 'acs_message' then
+	    if child_val.object_type = 'bboard_message' then
 	       acs_message.delete(child_val.child_id);
 	    elsif child_val.object_type = 'content_item' then
 		select count(*) into image_p
