aboutsummaryrefslogtreecommitdiff
path: root/GradeBook.tcl
diff options
context:
space:
mode:
authorEugeniy Mikhailov <evgmik@gmail.com>2011-01-20 20:59:59 -0500
committerEugeniy Mikhailov <evgmik@gmail.com>2011-01-20 20:59:59 -0500
commit3b6b6f6c426d78ed7a1eb5ccbe5561005bb7f016 (patch)
tree58d3b06b39fce1c157ce2d60a4845176bb46a7d8 /GradeBook.tcl
parentecb25d6adcbddf38c38c37494bfa040d4872b49c (diff)
downloadGradeBook-3b6b6f6c426d78ed7a1eb5ccbe5561005bb7f016.tar.gz
GradeBook-3b6b6f6c426d78ed7a1eb5ccbe5561005bb7f016.zip
loggin and logoff dbg message priority lowered
Ignore-this: f6eb0280cbb29553a78617956cc9134e darcs-hash:20110121015959-067c0-e1060913128f60ce1c008580bf838ca0330ce08f.gz
Diffstat (limited to 'GradeBook.tcl')
-rwxr-xr-xGradeBook.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl
index 0bb4a3f..0cffbc2 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -257,13 +257,13 @@ proc LogMeOn {} {
global user password
set user [::ncgi::value user guest]
set password [::ncgi::value password guest]
- dbg "Logging in and setting cookies"
+ dbg "Logging in and setting cookies" 4
::ncgi::setCookie -name user -value $user
::ncgi::setCookie -name password -value $password
}
proc LogMeOff {} {
- dbg "Logging off"
+ dbg "Logging off" 4
global user password
set user guest
set password guest