From 73f702d65b1472b11cf7e90507c522a4f3528f78 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Wed, 16 Feb 2011 11:08:25 -0500 Subject: action list reformatted to be more readable Ignore-this: 90567d8836ca723fe281a58a0bbf4bda darcs-hash:20110216160825-067c0-352ea641925e56042d9ed3ec1934a4ac31b69554.gz --- GradeBook_lib.tcl | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'GradeBook_lib.tcl') diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index b2dbfa7..3ba801d 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1055,7 +1055,14 @@ proc ShowControls { permission_list user } { global script_name dbg "outputing contol list" puts "
" - set action_list [ list defaultview "Refresh" addcolumnrequest "Add Column" logoff "Logoff" editcourseinfo "Edit Course Info" editnewuserinfo "Add new user" choosenewpassword "Choose new password"] + set action_list [ list \ + defaultview "Refresh"\ + addcolumnrequest "Add Column"\ + editcourseinfo "Edit Course Info"\ + editnewuserinfo "Add new user"\ + choosenewpassword "Choose new password"\ + logoff "Logoff"\ + ] set separator { } foreach {act act_label} $action_list { if { [isActionGranted $act $permission_list $user] } { -- cgit v1.2.3