Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	9 Oct 2001 04:57:37 -0000	1.6
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	14 Aug 2002 18:54:32 -0000	1.7
@@ -68,7 +68,7 @@
 
     set proc_name [acs_sc_generate_name $contract $impl $operation]
 
-    ns_log Notice "ACS_SC_PROC: proc_name = $proc_name"
+    acs_sc_log SCDebug "ACS_SC_PROC: proc_name = $proc_name"
     foreach {impl_alias impl_pl} [acs_sc_get_alias $contract $operation $impl] break 
 
     if ![info exists impl_alias] {
@@ -134,7 +134,7 @@
 
     set docblock [join $docblock "\n\r"]
     set arguments [join $arguments]
-    ns_log Notice "sc_proc: $proc_name, $arguments"
+    acs_sc_log SCDebug "sc_proc: $proc_name, $arguments"
     ad_proc $proc_name $arguments $docblock $body
 
 }
@@ -201,7 +201,16 @@
 }
 
 
+##
+## Logging
+##
 
+proc acs_sc_log {level msg} {
+    # If you want to debug the SC, change SCDebug to Debug below
+    if {![string equal "SCDebug" $level]} {
+        ns_log $level "$msg"
+    }
+}
 
 
 
@@ -212,3 +221,6 @@
 
 
 
+
+
+