From cfdb0d9716131accd1cb48482d095de936bd4c89 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Wed, 19 Jan 2011 22:16:24 -0500 Subject: added logoff to actions list Ignore-this: 6b7844ee7a047c168b5c2a4aa18a393a darcs-hash:20110120031624-067c0-e5acf1934b277a9bab8119e304a40e34d51eedbe.gz --- GradeBook.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'GradeBook.tcl') 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 "
" - 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] } { -- cgit v1.2.3