diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-12 22:01:49 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-12 22:01:49 -0500 |
| commit | d98976ff6f8a8843032964b3404a8d4c72c51384 (patch) | |
| tree | ae24f3cf0ec7225fe90a1a54a5188183a4fae75b /GradeBook_lib.tcl | |
| parent | 21f333322247f3d545252cd0fc8353f0f2e7d358 (diff) | |
| download | GradeBook-d98976ff6f8a8843032964b3404a8d4c72c51384.tar.gz GradeBook-d98976ff6f8a8843032964b3404a8d4c72c51384.zip | |
added time stamp proc
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 68b74cc..3b5edfb 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -326,6 +326,10 @@ proc dbg {msg {category msg_level_critical}} { } } +proc timestamp { } { + return [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] +} + proc ColName2SqlSafeForm {colname} { set bad_symbols [list {\}} {\{} {\\} {\'} {\"} {\]} {\[} ] foreach bs $bad_symbols { |