diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-12-20 12:15:52 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-12-20 12:15:52 -0500 |
| commit | 0b440328e24dc45c187363f065fd4e6ec7e8cb1c (patch) | |
| tree | 5736efa5456b99a5b3115fd97b6456c1782c90ca /GradeBook_lib.tcl | |
| parent | 187dd6a7f03c29e62469ebcdd871439324dfa7ad (diff) | |
| download | GradeBook-0b440328e24dc45c187363f065fd4e6ec7e8cb1c.tar.gz GradeBook-0b440328e24dc45c187363f065fd4e6ec7e8cb1c.zip | |
GradeBook_lib: two digit after decimal plot in show of calculated columns
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index f6317db..dcdbb50 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -873,7 +873,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { set col_value_letter_grade [number2letter_grade $col_value] } # promote to percent format - set col_value [format "%04.1f%%" [expr {100.* $col_value} ] ] + set col_value [format "%04.2f%%" [expr {100.* $col_value} ] ] # add letter grade to Grand Total if { $index eq "Grand Total" } { set col_value [ concat $col_value "=" <b> $col_value_letter_grade </b>] |