diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index f38b307..f75d910 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -77,6 +77,7 @@ proc CreateGradesTable {db} { proc CreateAccessRightsTable {db} { db eval {CREATE TABLE AccessRightsTable(actionname text, instructor integer, ta integer, student integer, guest integer)} # guest should have no rights make sure that 0 is evereywhere + db eval {INSERT INTO AccessRightsTable VALUES('logon', 1, 1, 1, 1)} db eval {INSERT INTO AccessRightsTable VALUES('showgrades', 1, 1, 1, 0)} db eval {INSERT INTO AccessRightsTable VALUES('sort', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('addcolumnrequest', 1, 1, 0, 0)} |