diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-19 22:16:24 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-19 22:16:24 -0500 |
| commit | cfdb0d9716131accd1cb48482d095de936bd4c89 (patch) | |
| tree | bbb3aa46095040c51710d92cab1639ec7f0b0ac4 /GradeBook.tcl | |
| parent | b568b900b3da0d4bde551d9eefb61ea3ef4c33be (diff) | |
| download | GradeBook-cfdb0d9716131accd1cb48482d095de936bd4c89.tar.gz GradeBook-cfdb0d9716131accd1cb48482d095de936bd4c89.zip | |
added logoff to actions list
Ignore-this: 6b7844ee7a047c168b5c2a4aa18a393a
darcs-hash:20110120031624-067c0-e5acf1934b277a9bab8119e304a40e34d51eedbe.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 45fdecb..f38b307 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -605,7 +605,7 @@ proc ShowControls { permission_list user } { global script_name dbg "outputing contol list" puts "<div class=\"controls\">" - set action_list [ list defaultview "Refresh" addcolumnrequest "Add Column" ] + set action_list [ list defaultview "Refresh" addcolumnrequest "Add Column" logoff "Logoff" ] set separator { } foreach {act act_label} $action_list { if { [isActionGranted $act $permission_list $user] } { |