diff options
| -rwxr-xr-x | GradeBook.tcl | 4 |
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 |