diff options
| -rwxr-xr-x | GradeBook.tcl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index c2da964..24dfdbd 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -74,15 +74,9 @@ proc CreateGradesTable {db} { AddUserNonWeb {} {} _Col_Category_ {} inforow AddUserNonWeb {} {} _Max_Points_ {} inforow - # dummy users - AddUserNonWeb Ta "Taevich, I" ta [::md5::md5 -hex qwerty] ta - AddUserNonWeb Dan "Dandanovich" dan [::md5::md5 -hex qwerty] student - AddUserNonWeb Ale "Alevna" ale [::md5::md5 -hex qwerty] student - AddUserNonWeb Jon "Jonovich" jon [::md5::md5 -hex qwerty] student - AddUserNonWeb Ins "Instruch I" instructor [::md5::md5 -hex qwerty] instructor # reasonable defaults for hidden columns - set instructor_hidden_columns [list UserHiddenColums PasswordHash UserHiddenGroups IdNum] - UpdateColValue4GroupNameNonWeb UserHiddenColums instructor $instructor_hidden_columns + #set instructor_hidden_columns [list UserHiddenColums PasswordHash UserHiddenGroups IdNum] + #UpdateColValue4GroupNameNonWeb UserHiddenColums instructor $instructor_hidden_columns } proc AddAccessRightNonWeb { action instructor_right ta_right student_right guest_right } { |