Index: openacs.org-dev/packages/forums/tcl/forum-reply-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/forum-reply-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/forums/tcl/forum-reply-procs.xql	8 Oct 2002 15:47:12 -0000	1.1
+++ openacs.org-dev/packages/forums/tcl/forum-reply-procs.xql	15 Jan 2003 03:18:34 -0000	1.2
@@ -1,14 +1,22 @@
 <?xml version="1.0"?>
 <queryset>
 
-    <fullquery name="forum::notification::get_url.select_object_type">
+    <fullquery name="forum::notification::get_url.get_object_type">
         <querytext>	
 	select object_type 
 	from acs_objects
 	where object_id = :object_id
         </querytext>
     </fullquery>
 
+    <fullquery name="forum::notification::get_url.get_forum_id">
+	<querytext>
+	select forum_id
+	from forums_messages
+	where message_id=:object_id
+	</querytext>
+    </fullquery>
+
 </queryset>