Index: openacs.org-dev/packages/forums/tcl/forums-sc-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/forums-sc-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/forums/tcl/forums-sc-procs-postgresql.xql	8 Aug 2002 02:34:35 -0000	1.1
+++ openacs.org-dev/packages/forums/tcl/forums-sc-procs-postgresql.xql	20 Aug 2002 19:22:00 -0000	1.2
@@ -12,4 +12,15 @@
                                where forums_forums.forum_id = :forum_id)
         </querytext>
     </fullquery>
-</queryset>
\ No newline at end of file
+
+    <fullquery name="forum::message::url.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>
+
+</queryset>