Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -N -r1.32 -r1.33
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	21 Apr 2010 14:50:34 -0000	1.32
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	22 Apr 2010 04:39:19 -0000	1.33
@@ -78,13 +78,13 @@
   }
 
   Throttle instproc add_statistics { type requestor ip_adress url query } {
-    set furl [expr {$query ne "" ? "$url?$query" : $url}]
+    #set furl [expr {$query ne "" ? "$url?$query" : $url}]
     my incr ${type}s
     #my log "++++ add_statistics   -type $type -user_id $requestor "
     set entry [ThrottleStat new -childof [self]::stats \
 		   -type $type -requestor $requestor \
 		   -timestamp [clock seconds] \
-		   -ip_adress $ip_adress -url $furl]
+		   -ip_adress $ip_adress -url $url]
   }
 
   Throttle instproc url_statistics {{-flush 0}} {
Index: openacs-4/packages/xotcl-request-monitor/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/index.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/xotcl-request-monitor/www/index.tcl	20 Apr 2010 09:11:01 -0000	1.15
+++ openacs-4/packages/xotcl-request-monitor/www/index.tcl	22 Apr 2010 04:39:19 -0000	1.16
@@ -90,7 +90,7 @@
   set um [throttle trend user_count_minutes]
   if { $vm eq "" } { return "NO DATA" }
   set views_per_sec [expr {[lindex $vm end]/60.0}]
-  ns_log notice "um='$um' vm='$vm' expr {60.0*$views_per_sec/[lindex $um end]}"
+  #ns_log notice "um='$um' vm='$vm' expr {60.0*$views_per_sec/[lindex $um end]}"
   set views_per_min_per_user [expr {60.0*$views_per_sec/[lindex $um end]}]
   set view_time [expr {$views_per_min_per_user>0 ? 
 	" avg. view time: [format %4.1f [expr {60.0/$views_per_min_per_user}]]" : ""}]