- Resource Management Report:

Fixed issue if percentage integer is too large

- Resource Management Report:
Fixed issue if percentage integer is too large
de37e010 · Frank Bergmann · 11bcf23e · de37e010
Commit de37e010 authored May 09, 2011 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

intranet-resource-management-procs.tcl tcl/intranet-resource-management-procs.tcl +1 -0

No files found.
--- a/tcl/intranet-resource-management-procs.tcl
+++ b/tcl/intranet-resource-management-procs.tcl
@@ -24,6 +24,7 @@ ad_proc -public im_resource_mgmt_resource_planning_cell {
 } {
    if {![string is double $percentage]} { return $percentage }
    if {0.0 == $percentage || "" == $percentage} { return "" }
+    if {$percentage > 1000} { set percentage 1000.0 }

    # Color selection
    set color ""