Index: openacs-4/packages/forums/tcl/messages-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs-oracle.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/forums/tcl/messages-procs-oracle.xql	13 Jan 2005 13:58:16 -0000	1.8
+++ openacs-4/packages/forums/tcl/messages-procs-oracle.xql	15 Jun 2018 16:46:17 -0000	1.9
@@ -7,13 +7,9 @@
         <querytext>
             select forums_messages.*,
                    0 as n_attachments,
-                   person.name(forums_messages.user_id) as user_name, 
-                   party.email(forums_messages.user_id) as user_email,
-                   forums_forum.name(forums_messages.forum_id) as forum_name, 
                    forums_message.root_message_id(forums_messages.message_id) as root_message_id,
-                   (select fm2.subject
-                    from forums_messages fm2 
-                    where fm2.message_id = forums_message.root_message_id(forums_messages.message_id)) as root_subject, 
+                   (select subject from forums_messages
+                    where message_id = forums_message.root_message_id(forums_messages.message_id)) as root_subject, 
                    to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi
             from forums_messages
             where forums_messages.message_id = :message_id
@@ -24,29 +20,15 @@
         <querytext>
             select forums_messages.*,
                    (select count(*) from attachments where object_id= message_id) as n_attachments,
-                   person.name(forums_messages.user_id) as user_name, 
-                   party.email(forums_messages.user_id) as user_email,
-                   forums_forum.name(forums_messages.forum_id) as forum_name, 
                    forums_message.root_message_id(forums_messages.message_id) as root_message_id,
-                   (select fm2.subject
-                    from forums_messages fm2 
-                    where fm2.message_id = forums_message.root_message_id(forums_messages.message_id)) as root_subject, 
+                   (select subject from forums_messages
+                    where message_id = forums_message.root_message_id(forums_messages.message_id)) as root_subject, 
                    to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi
             from forums_messages
             where forums_messages.message_id = :message_id
         </querytext>
     </fullquery>
 
-    <fullquery name="forum::message::do_notifications.select_forums_package_url">
-        <querytext>
-            select site_node.url(node_id)
-            from site_nodes
-            where object_id = (select package_id
-                               from forums_forums
-                               where forums_forums.forum_id = :forum_id)
-        </querytext>
-    </fullquery>
-
     <fullquery name="forum::message::close.thread_close">
         <querytext>
             declare begin