diff options
| -rwxr-xr-x | GradeBook.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 3b7e187..ce26c6d 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -242,14 +242,14 @@ proc ChoseAction {action permission_list user} { dbg "requested action: $action" 3 if { [isActionGranted $action $permission_list $user] } { switch $action { - sort { SetSortColumn; ChoseAction defaultview $permission_list $user } - addcolumn { AddColumn } + sort { SetSortColumn; ChoseAction defaultview $permission_list $user } + addcolumn { AddColumn } deletecolumn { } renamecolumn { } showcontrols { } - showgrades { htmlGradesTable db $permission_list $user } - defaultview { htmlDefaultView $permission_list $user } - default { } + showgrades { htmlGradesTable db $permission_list $user } + defaultview { htmlDefaultView $permission_list $user } + default { } } } } |