diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-03-11 10:47:56 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-03-11 10:47:56 -0500 |
| commit | 57df626499462f60f7f6b06710075862a6590f29 (patch) | |
| tree | c5a4b3d505d153682873bfa14da15b16d977be95 /GradeBook_lib.tcl | |
| parent | 38e2cfe110db43fb08e5f639f32ba3cd463fc958 (diff) | |
| download | GradeBook-57df626499462f60f7f6b06710075862a6590f29.tar.gz GradeBook-57df626499462f60f7f6b06710075862a6590f29.zip | |
addded execution time output to the footer
Ignore-this: 918cef16078eecc69e3ff6247cf2d6d5
darcs-hash:20110311154756-067c0-c082784f81cda43c77c21591ee2f2c9b5821c226.gz
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 69385e7..f0c2440 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -552,7 +552,11 @@ proc htmlTop {permission_list} { proc htmlFooter {permission_list} { array set permission $permission_list global VERSION + global execution_start_time + set execution_end_time [clock microseconds] + set execution_time [ format "%.3g" [expr { ($execution_end_time - $execution_start_time)/1e6}] ] puts "<div class=\"footer\">" + puts "Execution time $execution_time seconds. <br>" puts "GradeBook $VERSION code is written by Eugeniy E. Mikhailov" puts "</div>" } |