Index: openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql	12 Mar 2004 18:48:50 -0000	1.6
+++ openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql	1 Jun 2004 23:41:26 -0000	1.7
@@ -17,7 +17,9 @@
   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,
-  context_id    in acs_objects.context_id%TYPE    default null
+  context_id    in acs_objects.context_id%TYPE    default null,
+  title         in acs_objects.title%TYPE         default null,
+  package_id    in acs_objects.package_id%TYPE    default null
  ) return acs_objects.object_id%TYPE;
 
  procedure del (
@@ -47,7 +49,8 @@
   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,
-  context_id        in acs_objects.context_id%TYPE    default null
+  context_id        in acs_objects.context_id%TYPE    default null,
+  package_id        in acs_objects.package_id%TYPE    default null
  ) return acs_objects.object_id%TYPE;
 
  procedure del (
@@ -93,7 +96,8 @@
   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,
-  context_id     in acs_objects.context_id%TYPE                default null
+  context_id     in acs_objects.context_id%TYPE                default null,
+  package_id     in acs_objects.package_id%TYPE                default null
  ) return acs_objects.object_id%TYPE;
 
  procedure del (
@@ -128,7 +132,8 @@
   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 (
@@ -154,7 +159,7 @@
   creation_user in acs_objects.creation_user%TYPE default null,
   creation_ip   in acs_objects.creation_ip%TYPE   default null,
   context_id    in acs_objects.context_id%TYPE    default null,
-  title         in acs_objects.title%TYPE    default null
+  title         in acs_objects.title%TYPE         default null,
   package_id    in acs_objects.package_id%TYPE    default null
  ) return acs_objects.object_id%TYPE
  is