diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index f0fedf5..7f396bb 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -287,8 +287,7 @@ proc AccessGroupRights {db user password } { set PasswordHash [::md5::md5 -hex $password] set eval_str [list SELECT GroupName FROM PasswordsTable WHERE UserName='$user' AND PasswordHash='$PasswordHash'] db eval $eval_str group_name_array {} - set name_found [array names group_name_array -exact GroupName] - if { $name_found != ""} { + if { [ info exist group_name_array(GroupName) ] } { set group $group_name_array(GroupName); } else { set group guest |