Index: openacs-4/packages/notifications/sql/oracle/upgrade/upgrade-4.6.2-4.6.4.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/sql/oracle/upgrade/upgrade-4.6.2-4.6.4.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/notifications/sql/oracle/upgrade/upgrade-4.6.2-4.6.4.sql	12 Jun 2003 13:34:51 -0000	1.1.2.1
@@ -0,0 +1,99 @@
+--
+-- Upgrade script
+-- 
+-- Adds a notif_user column to notifications table
+--
+-- @author Lars Pind (lars@pinds.com)
+-- @creation-date 2003-02-06
+--
+
+-- add the column
+alter table notifications add (
+    notif_user                      integer
+                                    constraint notif_user_id_fk
+                                    references users(user_id)
+);
+
+
+-- Recreate the package
+
+create or replace package notification
+as
+
+   function new (
+      notification_id                   in notifications.notification_id%TYPE default null,
+      type_id                           in notifications.type_id%TYPE,
+      object_id                         in notifications.object_id%TYPE,
+      notif_date                        in notifications.notif_date%TYPE default sysdate,
+      response_id                       in notifications.response_id%TYPE default null,
+      notif_user                        in notifications.notif_user%TYPE default null,
+      notif_subject                     in notifications.notif_subject%TYPE default null,
+      notif_text                        in varchar default null,
+      notif_html                        in varchar default null,
+      creation_date                     in acs_objects.creation_date%TYPE default sysdate,
+      creation_user                     in acs_objects.creation_user%TYPE,
+      creation_ip                       in acs_objects.creation_ip%TYPE,
+      context_id                        in acs_objects.context_id%TYPE default null
+   ) return notifications.notification_id%TYPE;
+
+   procedure delete (
+      notification_id                   in notifications.notification_id%TYPE default null
+   );
+
+end notification;
+/
+show errors
+
+
+
+create or replace package body notification
+as
+
+   function new (
+      notification_id                   in notifications.notification_id%TYPE default null,
+      type_id                           in notifications.type_id%TYPE,
+      object_id                         in notifications.object_id%TYPE,
+      notif_date                        in notifications.notif_date%TYPE default sysdate,
+      response_id                       in notifications.response_id%TYPE default null,
+      notif_user                        in notifications.notif_user%TYPE default null,
+      notif_subject                     in notifications.notif_subject%TYPE default null,
+      notif_text                        in varchar default null,
+      notif_html                        in varchar default null,
+      creation_date                     in acs_objects.creation_date%TYPE default sysdate,
+      creation_user                     in acs_objects.creation_user%TYPE,
+      creation_ip                       in acs_objects.creation_ip%TYPE,
+      context_id                        in acs_objects.context_id%TYPE default null
+   ) return notifications.notification_id%TYPE
+   is
+      v_notification_id                 acs_objects.object_id%TYPE;
+   begin
+      v_notification_id := acs_object.new (
+                               object_id => notification_id,
+                               object_type => 'notification',
+                               creation_date => creation_date,
+                               creation_user => creation_user,
+                               creation_ip => creation_ip,
+                               context_id => context_id
+                           );
+
+      insert into notifications
+      (notification_id, type_id, object_id, notif_date, response_id, notif_user, notif_subject, notif_text, notif_html)
+      values
+      (v_notification_id, type_id, object_id, notif_date, response_id, notif_user, notif_subject, notif_text, notif_html);
+
+      return v_notification_id;
+   end new;
+
+   procedure delete (
+      notification_id                   in notifications.notification_id%TYPE default null
+   )
+   is
+   begin
+      delete from notifications where notification_id = notification.delete.notification_id;
+
+      acs_object.delete (notification_id);
+   end delete;
+
+end notification;
+/
+show errors