Index: openacs-4/packages/forums/tcl/forum-reply-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forum-reply-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/forums/tcl/forum-reply-procs.tcl	10 Jul 2018 10:36:10 -0000	1.8
+++ openacs-4/packages/forums/tcl/forum-reply-procs.tcl	3 Sep 2024 15:37:38 -0000	1.9
@@ -10,13 +10,17 @@
 
 namespace eval forum::notification {
 
-    ad_proc -public get_url {
+    ad_proc -private get_url {
         object_id
     } {
         Returns a full url to the object_id.<br>
         Handles messages and forums.
-    } { 
 
+        This proc implements the GetURL operation of the
+        NotificationType Service Contract and should not be invoked
+        directly.
+    } {
+
 	set object_type [db_string select_object_type {}]
 
 	if {$object_type eq "forums_message" } {
@@ -38,10 +42,12 @@
         }
     }
 
-    ad_proc -public process_reply {
+    ad_proc -private process_reply {
         reply_id
     } {
-        NotificationType.ProcessReply Service Contract implementation.
+        This proc implements the ProcessReply operation of the
+        NotificationType Service Contract and should not be invoked
+        directly.
     } {
 
         # Get the data