diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 13:42:09 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 13:42:09 -0500 |
| commit | 07e5a4722c192d26ff68dcf40f08ef67f1b14760 (patch) | |
| tree | 2891fbb1b10a8ac667aa89caa01dbba76ba35714 | |
| parent | 7c175258734fff9df778424c0f83891fc377cb10 (diff) | |
| download | GradeBook-07e5a4722c192d26ff68dcf40f08ef67f1b14760.tar.gz GradeBook-07e5a4722c192d26ff68dcf40f08ef67f1b14760.zip | |
defaults for hidden columns in instructor group
Ignore-this: f0ed7873d5c4d8d132521af3072e26f2
darcs-hash:20110121184209-067c0-c66a6e3f4d88f2e070e2ac5b3215fa8ba7ffd9c6.gz
| -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 } { |