diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 11:59:27 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 11:59:27 -0500 |
| commit | f7e4a5fe11f0ce2bd0aba9fb0732fb2f99169165 (patch) | |
| tree | 7c9e480e39d7a151d684c38be68b94ced575c805 /GradeBook.tcl | |
| parent | fad2f8eed4ecbc852a647554c2731e8cb34e2b0e (diff) | |
| download | GradeBook-f7e4a5fe11f0ce2bd0aba9fb0732fb2f99169165.tar.gz GradeBook-f7e4a5fe11f0ce2bd0aba9fb0732fb2f99169165.zip | |
removed unused commented out code
Ignore-this: f74502901e1fd6c498b7ffa9f07678a0
darcs-hash:20110121165927-067c0-1f958f6404ed76eb86d29c2c456f4de488393065.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 0f46d49..7b056f0 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -277,23 +277,6 @@ proc askToLogin {} { puts "</div>" } - - - -#proc CheckAccessRights { user password} {} -#proc IsUserknown {} {return 1} - -#proc SetLoginInfo {} { - #global user password - #set isAccessGranted [IsUserknown] - #if { $isAccessGranted } { - #dbg "access granted to user $user" - #} - - #set access_rights [CheckAccessRights $user $password] - -#} - proc LogMeOn {} { global user password set user [::ncgi::value user guest] |