diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 23:11:21 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 23:11:21 -0500 |
| commit | e8b9669656a506d07562f54472dbf175cea4f084 (patch) | |
| tree | 85b983dd1c336c447fab112467d421cbcef7ff5f /GradeBook.tcl | |
| parent | 072cc2cef36c92c97d8bf09597ef601bf97ac1ae (diff) | |
| download | GradeBook-e8b9669656a506d07562f54472dbf175cea4f084.tar.gz GradeBook-e8b9669656a506d07562f54472dbf175cea4f084.zip | |
html header output moved forward
Ignore-this: fd5a32dd9dbffd517e1ba23b8ca99a12
darcs-hash:20110121041121-067c0-14f29909e57dc04ca2356a99fc7fbd2539c0a924.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 5ae7470..6f5384c 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -803,6 +803,8 @@ puts { ##################### end of procs #################################### +::ncgi::header + set timestamp [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] #CreatePasswordsTable db @@ -816,7 +818,6 @@ if { $action == "logoff" } { LogMeOff; set action defaultview } dbg "===== Connection at $timestamp for user $user =====" set permission_list [AccessGroupRights db $user $password] -::ncgi::header htmlHeader puts "<body>" htmlTop $permission_list |