Index: openacs-4/packages/notifications/sql/oracle/upgrade/upgrade-4.6.4-5.0d1.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/sql/oracle/upgrade/upgrade-4.6.4-5.0d1.sql,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/notifications/sql/oracle/upgrade/upgrade-4.6.4-5.0d1.sql 6 Nov 2003 19:23:02 -0000 1.2 +++ openacs-4/packages/notifications/sql/oracle/upgrade/upgrade-4.6.4-5.0d1.sql 27 Nov 2003 10:46:01 -0000 1.2.2.1 @@ -1,8 +1,9 @@ create table notification_email_hold ( reply_id integer - references notification_replies(reply_id) - primary key, - to_addr text, - header text, - body text + constraint notification_email_hold_pk primary key + constraint notif_email_hold_reply_id_ref + references notification_replies(reply_id), + to_addr clob, + header clob, + body clob ); Index: openacs-4/packages/notifications/sql/postgresql/notifications-replies-extra-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/sql/postgresql/notifications-replies-extra-create.sql,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/notifications/sql/postgresql/notifications-replies-extra-create.sql 6 Nov 2003 19:23:02 -0000 1.2 +++ openacs-4/packages/notifications/sql/postgresql/notifications-replies-extra-create.sql 27 Nov 2003 10:46:01 -0000 1.2.2.1 @@ -1,7 +1,8 @@ create table notification_email_hold ( reply_id integer - references notification_replies(reply_id) - primary key, + constraint notification_email_hold_pk primary key + constraint notif_email_hold_reply_id_ref + references notification_replies(reply_id), to_addr text, headers text, body text Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/notifications/tcl/notification-email-procs-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v diff -u -r1.18 -r1.18.2.1 --- openacs-4/packages/notifications/tcl/notification-email-procs.tcl 6 Nov 2003 19:23:02 -0000 1.18 +++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl 27 Nov 2003 10:46:01 -0000 1.18.2.1 @@ -321,7 +321,7 @@ -subject $email_headers(subject) \ -content $body] set headers $orig_headers - db_dml holdinsert {} + db_dml holdinsert {} -clobs [list $to_addr $headers $body] catch {ns_unlink $msg} lappend list_of_reply_ids $reply_id