Index: openacs-4/packages/dotlrn-forums/www/user-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/www/user-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-forums/www/user-postgresql.xql	21 Jul 2002 20:13:12 -0000	1.1
@@ -0,0 +1,45 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>postgresql</type><version>7.2.1</version></rdbms>
+
+    <fullquery name="select_messages">
+        <querytext>
+            select forums_messages.message_id,
+                   forums_messages.subject,
+                   to_char(forums_messages.posting_date, 'Mon DD YYYY HH24:MI:SS') as posting_date,
+                   forums_forums.forum_id,
+                   forums_forums.package_id,
+                   forums_forums.name as forum_name,
+                   (select site_node__url(node_id)
+                    from site_nodes
+                    where object_id = forums_forums.package_id) as url
+            from forums_messages,
+                 forums_forums
+            where forums_messages.user_id = :user_id
+            and forums_messages.forum_id = forums_forums.forum_id
+            order by forums_messages.posting_date desc
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_messages_by_forum">
+        <querytext>
+            select forums_messages.message_id,
+                   forums_messages.subject,
+                   to_char(forums_messages.posting_date, 'Mon DD YYYY HH24:MI:SS') as posting_date,
+                   forums_forums.forum_id,
+                   forums_forums.package_id,
+                   forums_forums.name as forum_name,
+                   (select site_node__url(node_id)
+                    from site_nodes
+                    where object_id = forums_forums.package_id) as url
+            from forums_messages,
+                 forums_forums
+            where forums_messages.user_id = :user_id
+            and forums_messages.forum_id = forums_forums.forum_id
+            order by forum_name,
+                     forums_messages.posting_date desc
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/forums-portlet/www/forums-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-portlet/www/forums-portlet-oracle.xql	21 Jul 2002 20:13:29 -0000	1.1
@@ -0,0 +1,25 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+    <fullquery name="select_forums">
+        <querytext>
+	    select forums_forums.package_id,
+            acs_object.name(apm_package.parent_id(forums_forums.package_id)) as parent_name,
+            (select site_node.url(site_nodes.node_id)
+            from site_nodes
+            where site_nodes.object_id = forums_forums.package_id) as url,
+            forums_forums.forum_id,
+            forums_forums.name,
+            case when last_modified > (sysdate - 1) then 't' else 'f' end as new_p
+            from forums_forums_enabled forums_forums,
+            acs_objects
+            where acs_objects.object_id = forums_forums.forum_id and 
+            forums_forums.package_id in ([join $list_of_package_ids ,])
+             order by parent_name,
+             forums_forums.name
+        </querytext>
+    </fullquery>
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/forums-portlet/www/forums-portlet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-portlet/www/forums-portlet-postgresql.xql	21 Jul 2002 20:13:29 -0000	1.1
@@ -0,0 +1,25 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>postgresql</type><version>7.2.1</version></rdbms>
+
+    <fullquery name="select_forums">
+        <querytext>
+	    select forums_forums.package_id,
+            acs_object__name(apm_package.parent_id(forums_forums.package_id)) as parent_name,
+            (select site_node__url(site_nodes.node_id)
+            from site_nodes
+            where site_nodes.object_id = forums_forums.package_id) as url,
+            forums_forums.forum_id,
+            forums_forums.name,
+            case when last_modified > (now() - 1) then 't' else 'f' end as new_p
+            from forums_forums_enabled forums_forums,
+            acs_objects
+            where acs_objects.object_id = forums_forums.forum_id and 
+            forums_forums.package_id in ([join $list_of_package_ids ,])
+             order by parent_name,
+             forums_forums.name
+        </querytext>
+    </fullquery>
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/forums-portlet/www/forums-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	26 Jun 2002 22:31:07 -0000	1.6
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	21 Jul 2002 20:13:29 -0000	1.7
@@ -21,19 +21,8 @@
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 set can_read_private_data_p [acs_privacy::user_can_read_private_data_p -object_id [ad_conn package_id]]
 
-db_multirow forums select_forums "
-    select forums_forums.package_id,
-           acs_object.name(apm_package.parent_id(forums_forums.package_id)) as parent_name,
-           (select site_node.url(site_nodes.node_id)
-            from site_nodes
-            where site_nodes.object_id = forums_forums.package_id) as url,
-           forums_forums.forum_id,
-           forums_forums.name,
-           case when last_modified > (sysdate - 1) then 't' else 'f' end as new_p
-    from forums_forums_enabled forums_forums,
-    acs_objects
-    where acs_objects.object_id = forums_forums.forum_id and 
-    forums_forums.package_id in ([join $list_of_package_ids ,])
-    order by parent_name,
-             forums_forums.name
-"
+set query select_forums
+
+db_multirow forums $query {}
+
+