From d98976ff6f8a8843032964b3404a8d4c72c51384 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Wed, 12 Dec 2012 22:01:49 -0500 Subject: added time stamp proc --- GradeBook_lib.tcl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'GradeBook_lib.tcl') 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 { -- cgit v1.2.3