diff options
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 0cffbc2..d5075a0 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -83,13 +83,15 @@ proc CreateAccessRightsTable {db} { db eval {INSERT INTO AccessRightsTable VALUES('addcolumnrequest', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('addcolumn', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('deletecolumn', 1, 1, 0, 0)} - db eval {INSERT INTO AccessRightsTable VALUES('renamecolumn', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('showcontrols', 1, 1, 1, 0)} db eval {INSERT INTO AccessRightsTable VALUES('changegrades', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('updategrades', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('changecolumn', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('updatecolumn', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('logoff', 1, 1, 1, 0)} + db eval {INSERT INTO AccessRightsTable VALUES('changefirstname', 1, 0, 0, 0)} + db eval {INSERT INTO AccessRightsTable VALUES('changelastname', 1, 0, 0, 0)} + db eval {INSERT INTO AccessRightsTable VALUES('changeusername', 1, 0, 0, 0)} } proc htmlErrorMsg { msg } { |