aboutsummaryrefslogtreecommitdiff
path: root/GradeBook.tcl
diff options
context:
space:
mode:
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