diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 23:48:21 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 23:48:21 -0500 |
| commit | f91ffd9e4acd939edca41e6e094b96a3af860b72 (patch) | |
| tree | b85f4739e6819d13ab789bc5a9c625255b252bfb | |
| parent | a33e4ddc7c9cd95eae97ef4df93f0d1b5c278894 (diff) | |
| download | GradeBook-f91ffd9e4acd939edca41e6e094b96a3af860b72.tar.gz GradeBook-f91ffd9e4acd939edca41e6e094b96a3af860b72.zip | |
::ncgi::header moved after login logodd procedure, otherwise cookies are not set
Ignore-this: b59480d44ad8676b8d1cd81b04a5cbad
darcs-hash:20110121044821-067c0-a3f864432e2921417c12376d6b29ad920435d1d3.gz
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 2b8984a..b684965 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -792,7 +792,6 @@ puts { ##################### end of procs #################################### -::ncgi::header set timestamp [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] @@ -806,6 +805,7 @@ 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 |