Index: openacs.org-dev/packages/forums/tcl/forum-reply-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/forum-reply-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs.org-dev/packages/forums/tcl/forum-reply-procs.tcl	5 Sep 2002 17:27:47 -0000	1.2
+++ openacs.org-dev/packages/forums/tcl/forum-reply-procs.tcl	15 Jan 2003 03:17:05 -0000	1.3
@@ -14,6 +14,20 @@
         object_id
     } {
 
+	set object_type [db_string get_object_type {*SQL*}]
+	if {[string match "forums_forum" $object_type]} {
+	    set forum_id $object_id
+	    set forum_p 1
+	} else {
+	    set forum_id [db_string get_forum_id {*SQL*}]
+	    set forum_p 0
+	}
+	set package_url [db_string select_forums_package_url {*SQL*}]
+	if {$forum_p == 1} {
+	    return "${package_url}forum-view?[export_vars forum_id]"
+	} else {
+	    return "${package_url}message-view?[export_vars {{message_id $object_id}}]"
+	}
     }
 
     ad_proc -public process_reply {