diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2010-12-16 14:53:19 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2010-12-16 14:53:19 -0500 |
| commit | b3cf94250993de1822231ab068504573ec515dc2 (patch) | |
| tree | 34ddb7c8354f722e08e09f78af0cc6d825a3e541 /GradeBook.tcl | |
| parent | f1abf173ea0a2763b1067423551e9027a4617eec (diff) | |
| download | GradeBook-b3cf94250993de1822231ab068504573ec515dc2.tar.gz GradeBook-b3cf94250993de1822231ab068504573ec515dc2.zip | |
butification
darcs-hash:20101216195319-067c0-93856cc2ecef9c965bdf3fa5c2e4cc072ae268da.gz
Diffstat (limited to 'GradeBook.tcl')
| -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 { } } } } |