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>
Index: openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl	14 Aug 2002 01:45:38 -0000	1.3
+++ openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl	20 Aug 2002 19:22:00 -0000	1.4
@@ -26,7 +26,7 @@
 	set datasource(content) $message(content)
 	set datasource(keywords) ""
 	set datasource(storage_type) text
-
+	set datasource(mime) "text/html"
     return [array get datasource]
 }
 
@@ -40,7 +40,7 @@
 } {
     forum::message::get -message_id $message_id -array message
     set forum_id $message(forum_id)
-    set url "[ad_url][db_string select_forums_package_url {}]"
+    set url "[ad_url][db_string select_forums_package_url {}]message-view?message_id=$message_id"
 }
 
 }