diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-02-16 11:08:25 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-02-16 11:08:25 -0500 |
| commit | 73f702d65b1472b11cf7e90507c522a4f3528f78 (patch) | |
| tree | 4a95638b40c410c3b208bc44124ee34967aec64a /GradeBook_lib.tcl | |
| parent | cacac36e455efccc61ec27d9a87854a5941c39f6 (diff) | |
| download | GradeBook-73f702d65b1472b11cf7e90507c522a4f3528f78.tar.gz GradeBook-73f702d65b1472b11cf7e90507c522a4f3528f78.zip | |
action list reformatted to be more readable
Ignore-this: 90567d8836ca723fe281a58a0bbf4bda
darcs-hash:20110216160825-067c0-352ea641925e56042d9ed3ec1934a4ac31b69554.gz
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 9 |
1 files changed, 8 insertions, 1 deletions
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 "<div class=\"controls\">" - 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] } { |