diff options
| -rwxr-xr-x | GradeBook.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 79d5c48..ac3024f 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -73,11 +73,14 @@ proc CreateGradesTable {db} { AddUserNonWeb {} {} _Max_Points_ {} inforow # dummy users - AddUserNonWeb Ins "Instruch I" instructor [::md5::md5 -hex qwerty] instructor 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] + UpdateColValue4GroupNameNonWeb UserHiddenColums instructor $instructor_hidden_columns } proc AddAccessRightNonWeb { action instructor_right ta_right student_right guest_right } { |