diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-23 21:40:00 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-23 21:40:00 -0500 |
| commit | 0461ad7bcc6d2227525cfabefd3ff97da7db1cd0 (patch) | |
| tree | fad7292e48e9ed909c5cab5ac8408534f9913160 /GradeBook.tcl | |
| parent | 67dd99728867b95599fccdb3234e3ef1c21bf2a1 (diff) | |
| download | GradeBook-0461ad7bcc6d2227525cfabefd3ff97da7db1cd0.tar.gz GradeBook-0461ad7bcc6d2227525cfabefd3ff97da7db1cd0.zip | |
dummy users removed from Gradebook creation
Ignore-this: dc29a9e798ffc9c642dbb4beb87daa9d
darcs-hash:20110124024000-067c0-12abc0126ec2407527ef9d7d3d53858f49b4deff.gz
Diffstat (limited to 'GradeBook.tcl')
| -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 } { |