Overview
| Artifact ID: | 220315e9a37c6d144460121b08c047e2d62b2b43 |
|---|---|
| Ticket: | 943984ffffffffffffffffffffffffffffffffff |
| Date: | 2004-04-29 03:31:55 |
| User: | davygrvy |
| Artifact Attached: | c1f66feb51ab2ac9b828b7f8e6f98bb7ec2d814b |
| Filename: | patch.txt |
| Description: | the fix. |
Content:
Index: counter.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/counter/counter.tcl,v
retrieving revision 1.14
diff -c -r1.14 counter.tcl
*** counter.tcl 25 Jan 2004 07:29:21 -0000 1.14
--- counter.tcl 28 Apr 2004 20:02:04 -0000
***************
*** 679,685 ****
if {[info exists hourhist($i)]} {
set dayhist($dayIndex) [expr {$dayhist($dayIndex) + $hourhist($i)}]
if {$hourhist($i) > $max} {
! set mx $hourhist($i)
}
}
}
--- 679,685 ----
if {[info exists hourhist($i)]} {
set dayhist($dayIndex) [expr {$dayhist($dayIndex) + $hourhist($i)}]
if {$hourhist($i) > $max} {
! set max $hourhist($i)
}
}
}