Index: openacs-4/packages/bulk-mail/tcl/bulk-mail-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/bulk-mail-procs-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs-oracle.xql	10 Feb 2021 11:50:16 -0000	1.4.2.2
@@ -0,0 +1,21 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+    <fullquery name="bulk_mail::new.create_object">
+      <querytext>
+        begin
+        1: := acs_object.new(
+           object_id     => null,
+           object_type   => 'bulk_mail_message',
+           creation_date => current_timestamp,
+           creation_user => :creation_user,
+           creation_ip   => :creation_ip,
+           context_id    => :package_id
+        );
+        end;
+      </querytext>
+    </fullquery>
+</queryset>
+