aboutsummaryrefslogtreecommitdiff
path: root/GradeBook.tcl
diff options
context:
space:
mode:
authorEugeniy Mikhailov <evgmik@gmail.com>2011-01-26 00:51:33 -0500
committerEugeniy Mikhailov <evgmik@gmail.com>2011-01-26 00:51:33 -0500
commit5ac82bbf41a2b6ffb394d1b4ed8db9a02b9ad5bd (patch)
tree539a0820ed7f5e79d6b16adf6a197e9085aefb7f /GradeBook.tcl
parent5f524625f4fb3e6e1fdb370b0b6e0ca31c73822f (diff)
downloadGradeBook-5ac82bbf41a2b6ffb394d1b4ed8db9a02b9ad5bd.tar.gz
GradeBook-5ac82bbf41a2b6ffb394d1b4ed8db9a02b9ad5bd.zip
added reset password action
Ignore-this: 1519912052aa3ae64c7127d45652a04 darcs-hash:20110126055133-067c0-b4431aab38d114336ef2b67d08378d9fe59e134d.gz
Diffstat (limited to 'GradeBook.tcl')
-rwxr-xr-xGradeBook.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl
index c33c2df..0389cb0 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -43,7 +43,7 @@ set timestamp [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"]
#CreateAccessRightsTable db
dbg [::ncgi::names] 4
# logon and logoff actions are granted to everyone
-if { $action == "logon" } { LogMeOn; set action defaultview }
+if { $action == "logon" } { set action [ LogMeOn ] }
if { $action == "logoff" } { LogMeOff; set action defaultview }