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 -r1.23 -r1.24 --- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 10 Jan 2009 17:38:56 -0000 1.23 +++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 10 Jan 2009 19:16:14 -0000 1.24 @@ -807,7 +807,7 @@ my log "--- $i expired $d days $h hours $m minutes ago" my unset timestamp($i) } - if {[string match *.* $i]} {my incr ip24} {incr my auth24} + if {[string match *.* $i]} {my incr ip24} {my incr auth24} } dump write } @@ -828,10 +828,10 @@ # dump all variables of the object ::Users set o ::Users foreach var [$o info vars] { - if {[$o array exists $v]} { - append cmd [list $o array set $v [$o array get $v]] \n + if {[$o array exists $var]} { + append cmd [list $o array set $var [$o array get $var]] \n } else { - append cmd [list $o set $v [$o set $v]] \n + append cmd [list $o set $var [$o set $var]] \n } } puts $dumpFile $cmd