diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-19 21:27:44 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-19 21:27:44 -0500 |
| commit | 00e86a42ab895bf07d171392bf5c47e41db37d17 (patch) | |
| tree | ca9f34b4f48d4d72f95a3f2b329f20fa6be7f856 /GradeBook.tcl | |
| parent | eef62c41022b1feb2e12bee35443490c45b70a53 (diff) | |
| download | GradeBook-00e86a42ab895bf07d171392bf5c47e41db37d17.tar.gz GradeBook-00e86a42ab895bf07d171392bf5c47e41db37d17.zip | |
added failsafe action defaultview if others are failing
Ignore-this: ca46e5752b715df78bc64d94f51bed13
darcs-hash:20110120022744-067c0-eb2047036f5fa4e4f3fc691038f1743be1739149.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index dfc3410..81fe67c 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -298,7 +298,10 @@ proc ChoseAction {action permission_list user} { defaultview { htmlDefaultView $permission_list $user } default { } } - } + } else { + # this action is permitted to everyone by default + ChoseAction defaultview $permission_list $user + } } proc ChangeColumn { permission_list user } { |