diff options
| -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] } { |