Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	16 May 2002 00:33:45 -0000	1.20
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	14 Aug 2002 18:49:09 -0000	1.21
@@ -946,3 +946,18 @@
     db_exec_plsql apm_package_instance_delete {}
 }
 
+##
+## Logging
+##
+
+ad_proc -public apm_log {
+    level
+    msg
+} {
+    Centralized APM logging. If you want to debug the APM, change
+    APMDebug to Debug and restart the server.  
+} {
+    if {![string equal "APMDebug" $level]} {
+        ns_log $level "$msg"
+    }
+}