Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql 1 Jun 2001 13:02:40 -0000 1.2 +++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql 20 Nov 2017 13:34:01 -0000 1.3 @@ -3,22 +3,6 @@ oracle8.1.6 - - - - insert into acs_messages_outgoing - (message_id, to_address, grouping_id, wait_until) - select :m__message_id, p.email, q.grouping_id, - nvl(q.wait_until, SYSDATE) as wait_until - from ($query) q, parties p - where not exists (select 1 from acs_messages_outgoing o - where o.message_id = :m__message_id - and p.email = o.to_address) - and p.party_id = q.recipient_id - - - - @@ -28,7 +12,6 @@ - @@ -38,47 +21,4 @@ - - - - - insert into acs_messages_outgoing - (message_id, to_address, grouping_id, wait_until) - select :m__message_id, p.email, q.grouping_id, - nvl(q.wait_until, SYSDATE) as wait_until - from ($query) q, parties p - where not exists (select 1 from acs_messages_outgoing o - where o.message_id = :m__message_id - and p.email = o.to_address) - and p.party_id = q.recipient_id - - - - - - - - - select o.message_id as sending_message_id, - o.to_address as recip_email, - p.email as sender_email, - to_char(m.sent_date, 'Dy, DD Mon YYYY HH24:MI:SS') as sent_date, - m.rfc822_id, - m.title, - m.mime_type, - m.content, - m2.rfc822_id as in_reply_to - from acs_messages_outgoing o, - acs_messages_all m, - acs_messages_all m2, - parties p - where o.message_id = m.message_id - and m2.message_id(+) = m.reply_to - and p.party_id = m.sender - and wait_until <= sysdate - - - - - Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql 12 Jul 2009 01:08:30 -0000 1.6 +++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql 20 Nov 2017 13:34:01 -0000 1.7 @@ -3,23 +3,6 @@ postgresql7.1 - - - - insert into acs_messages_outgoing - (message_id, to_address, grouping_id, wait_until) - select :m__message_id, p.email, q.grouping_id, - coalesce(q.wait_until, current_timestamp) as wait_until - from ($query) q, parties p - where not exists (select 1 from acs_messages_outgoing o - where o.message_id = :m__message_id - and p.email = o.to_address) - and p.party_id = q.recipient_id - - - - - select acs_message__message_p(:message_id); @@ -31,27 +14,5 @@ select acs_message__first_ancestor(:message_id) as ancestor_id - - - - select o.message_id as sending_message_id, - o.to_address as recip_email, - p.email as sender_email, - to_char(m.sent_date, 'Dy, DD Mon YYYY HH24:MI:SS') as sent_date, - m.rfc822_id, - m.title, - m.mime_type, - m.content, - m2.rfc822_id as in_reply_to - from acs_messages_outgoing o, - acs_messages_all m left outer join acs_messages_all m2 on (m2.message_id = m.reply_to), - parties p - where o.message_id = m.message_id - and p.party_id = m.sender - and wait_until <= current_timestamp - - - - Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.xql 1 Jun 2001 13:02:40 -0000 1.2 +++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.xql 20 Nov 2017 13:34:01 -0000 1.3 @@ -11,5 +11,41 @@ + + + + insert into acs_messages_outgoing + (message_id, to_address, grouping_id, wait_until) + select :m__message_id, p.email, q.grouping_id, + coalesce(q.wait_until, current_timestamp) as wait_until + from ($query) q, parties p + where not exists (select 1 from acs_messages_outgoing o + where o.message_id = :m__message_id + and p.email = o.to_address) + and p.party_id = q.recipient_id + + + + + + + + select o.message_id as sending_message_id, + o.to_address as recip_email, + p.email as sender_email, + to_char(m.sent_date, 'Dy, DD Mon YYYY HH24:MI:SS') as sent_date, + m.rfc822_id, + m.title, + m.mime_type, + m.content, + m2.rfc822_id as in_reply_to + from acs_messages_outgoing o, + acs_messages_all m left outer join acs_messages_all m2 on (m2.message_id = m.reply_to), + parties p + where o.message_id = m.message_id + and p.party_id = m.sender + and wait_until <= current_timestamp + +