Index: openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql	30 Sep 2003 12:10:02 -0000	1.7
+++ openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql	2 Mar 2004 17:01:59 -0000	1.8
@@ -54,12 +54,12 @@
  function new (
   mail_link_id    in acs_mail_links.mail_link_id%TYPE default null,
   body_id         in acs_mail_bodies.body_id%TYPE,
-
   context_id      in acs_objects.context_id%TYPE    default null,
   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_mail_link'
+  object_type     in acs_objects.object_type%TYPE   default 'acs_mail_link',
+  package_id      in acs_objects.package_id%TYPE    default null
  ) return acs_objects.object_id%TYPE;
 
  procedure del (
@@ -75,27 +75,30 @@
  function new (
   mail_link_id    in acs_mail_links.mail_link_id%TYPE default null,
   body_id         in acs_mail_bodies.body_id%TYPE,
-
   context_id      in acs_objects.context_id%TYPE    default null,
   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_mail_link'
+  object_type     in acs_objects.object_type%TYPE   default 'acs_mail_link',
+  package_id      in acs_objects.package_id%TYPE    default null
  ) return acs_objects.object_id%TYPE
  is
      v_object_id acs_objects.object_id%TYPE;
  begin
      v_object_id := acs_mail_link.new (
          mail_link_id => mail_link_id,
-		 body_id => body_id,		      
+	 body_id => body_id,		      
          context_id => context_id,
          creation_date => creation_date,
          creation_user => creation_user,
          creation_ip => creation_ip,
-         object_type => object_type
+         object_type => object_type,
+	 package_id => package_id
      );
+
      insert into acs_mail_queue_messages ( message_id )
          values ( v_object_id );
+
      return v_object_id;
  end;
 
