Index: openacs-4/packages/monitoring/tcl/monitoring-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/monitoring/tcl/monitoring-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/monitoring/tcl/monitoring-procs.tcl	17 Sep 2002 21:57:38 -0000	1.5
+++ openacs-4/packages/monitoring/tcl/monitoring-procs.tcl	1 Nov 2003 08:45:38 -0000	1.6
@@ -94,13 +94,11 @@
             #compress multiple spaces
             regsub -all {[ ]+} [string trim $line] " " line    
             set proc_list [split $line]
-            ns_log Notice "line=$line"
 
             #skip blank lines
             if { [llength $proc_list] < 2 } { continue } 
             if { [llength $proc_list] < 11 } { 
-                ns_log Notice "skipping top process line: 
-                     element list shorter than variable list."
+                ns_log Debug "skipping top process line: $line\nelement list shorter than variable list."
                 continue 
             }
         
@@ -137,7 +135,6 @@
             continue   
 
         } elseif { [regexp -nocase {(.*PID.USER.*)} $line match top_header] } {
-            ns_log notice "vk1"
             ## this is the start of proc info lines
             incr procflag
 
@@ -248,7 +245,7 @@
 
     # Are we even doing this?
     if {[ad_parameter -package_id [monitoring_pkg_id] AutoAnalyzeP monitoring 0]==0} {
-        ns_log notice "ad_monitoring_analyze_tables: Not Analyzing Tables"
+        ns_log debug "ad_monitoring_analyze_tables: Not Analyzing Tables"
         return
     }
     
@@ -297,7 +294,7 @@
     
         # for some reason this failed.. probably cause the table doesn't exists
         # anymore
-        ns_log notice "Analyzing $table_name.."
+        ns_log debug "Analyzing $table_name.."
         if {[catch {db_dml table_analyze $execstr} errmsg]} {
             # Look up the table in user_tables
             if { ![db_table_exists $table_name] } {