Index: openacs-4/packages/notifications/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/apm-callback-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/notifications/tcl/apm-callback-procs.tcl	7 Aug 2017 23:48:13 -0000	1.6
+++ openacs-4/packages/notifications/tcl/apm-callback-procs.tcl	3 Sep 2024 15:37:39 -0000	1.7
@@ -1,15 +1,15 @@
 
 ad_library {
     APM callback procedures.
-    
+
     @creation-date 2003-06-12
     @author Lars Pind (lars@collaboraid.biz)
     @cvs-id $Id$
 }
 
 namespace eval notification::apm {}
 
-ad_proc -public notification::apm::after_install {} {
+ad_proc -private notification::apm::after_install {} {
     After install callback.  Create service contracts.
 } {
     db_transaction {
@@ -28,7 +28,7 @@
     }
 }
 
-ad_proc -public notification::apm::before_uninstall {} {
+ad_proc -private notification::apm::before_uninstall {} {
     Before uninstall callback.  Get rid of service contracts.
 } {
     db_transaction {
@@ -41,14 +41,14 @@
 
         # Unregister email delivery method service contract implementation
         delete_email_delivery_method_impl
-        
+
         # Delete the delivery method service contract
         delete_delivery_method_contract
 
     }
 }
 
-ad_proc -public notification::apm::after_upgrade {
+ad_proc -private notification::apm::after_upgrade {
     {-from_version_name:required}
     {-to_version_name:required}
 } {
@@ -60,7 +60,7 @@
         -spec {
             5.1.0d1 5.1.0d2 {
                 db_transaction {
-                    
+
                     # Delete and recreate contract
                     delete_delivery_method_contract
                     create_delivery_method_contract
@@ -84,7 +84,7 @@
             }
             5.4.0d2 5.4.0d3 {
                 db_transaction {
-                    
+
                     # Delete and recreate contract
                     delete_delivery_method_contract
                     create_delivery_method_contract
@@ -110,7 +110,7 @@
 }
 
 
-ad_proc -public notification::apm::create_delivery_method_contract {} {
+ad_proc -private notification::apm::create_delivery_method_contract {} {
     Create the delivery method service contract.
 } {
     acs_sc::contract::new_from_spec \
@@ -120,13 +120,13 @@
             operations {
                 Send {
                     description "Send a notification"
-                    input { 
+                    input {
                         from_user_id:integer
                         to_user_id:integer
                         reply_object_id:integer
                         notification_type_id:integer
                         subject:string
-                        content_text:string 
+                        content_text:string
                         content_html:string
                         file_ids:string
                     }
@@ -138,15 +138,15 @@
         }
 }
 
-ad_proc -public notification::apm::delete_delivery_method_contract {} {
+ad_proc -private notification::apm::delete_delivery_method_contract {} {
     Delete the delivery method contract.
 } {
     acs_sc::contract::delete -name "NotificationDeliveryMethod"
 }
 
-ad_proc -public notification::apm::create_email_delivery_method_impl {} {
+ad_proc -private notification::apm::create_email_delivery_method_impl {} {
     Register the service contract implementation and return the impl_id
-    
+
     @return impl_id of the created implementation
 } {
     return [acs_sc::impl::new_from_spec -spec {
@@ -160,7 +160,7 @@
     }]
 }
 
-ad_proc -public notification::apm::delete_email_delivery_method_impl {
+ad_proc -private notification::apm::delete_email_delivery_method_impl {
     {-impl_name "notification_email"}
 } {
     Unregister the NotificationDeliveryMethod service contract implementation for email.
@@ -170,11 +170,11 @@
         -impl_name $impl_name
 }
 
-ad_proc -public notification::apm::register_email_delivery_method {
+ad_proc -private notification::apm::register_email_delivery_method {
     -impl_id:required
 } {
     Register the email delivery method with the notifications service.
-    
+
     @param impl_id The ID of the NotificationDeliveryMethod service contract implementation.
 } {
     notification::delivery::new \
@@ -183,11 +183,11 @@
         -pretty_name "Email"
 }
 
-ad_proc -public notification::apm::update_email_delivery_method_impl {
+ad_proc -private notification::apm::update_email_delivery_method_impl {
     -impl_id:required
 } {
     Register the email delivery method with the notifications service.
-    
+
     @param impl_id The ID of the NotificationDeliveryMethod service contract implementation.
 } {
     set delivery_method_id [notification::delivery::get_id -short_name "email"]
@@ -197,16 +197,16 @@
         -sc_impl_id $impl_id
 }
 
-ad_proc -public notification::apm::unregister_email_delivery_method {} {
+ad_proc -private notification::apm::unregister_email_delivery_method {} {
     Unregister the service contract delivery method with the notifications service.
 } {
     set delivery_method_id [notification::delivery::get_id -short_name "email"]
-    
+
     notification::delivery::delete \
         -delivery_method_id $delivery_method_id
 }
 
-ad_proc -public notification::apm::create_notification_type_contract {} {
+ad_proc -private notification::apm::create_notification_type_contract {} {
     Create the notification type service contract, used by client packages to define notification
     types specific to the client's object types.
 } {
@@ -217,7 +217,7 @@
             operations {
                 GetURL {
                     description "Gets the URL for an object in this notification type"
-                    input { 
+                    input {
                         object_id:integer
                     }
                     output {
@@ -232,13 +232,13 @@
                     output {
                         success_p:boolean
                     }
-                    
+
                 }
             }
         }
 }
 
-ad_proc -public notification::apm::delete_notification_type_contract {} {
+ad_proc -private notification::apm::delete_notification_type_contract {} {
     Delete the notification type service contract.
 } {
     acs_sc::contract::delete -name "NotificationType"