diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 22:22:41 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 22:22:41 -0500 |
| commit | b49a6dea80325b920e078c3ad91522b19d48fb2c (patch) | |
| tree | 9a415f1cd2f21c6495833e4678fd599754c7af97 /GradeBook.tcl | |
| parent | 7a699bd008fe4cbfc29060848d16384d4df17d45 (diff) | |
| download | GradeBook-b49a6dea80325b920e078c3ad91522b19d48fb2c.tar.gz GradeBook-b49a6dea80325b920e078c3ad91522b19d48fb2c.zip | |
added html error messages about unknown or unimplemented actions
Ignore-this: 3bcefd7dee213c6986e7d98f7971712d
darcs-hash:20110121032241-067c0-88c69198d8b82cf7ea1d15695304829a9e490c97.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index e3a26df..a0a067f 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -311,6 +311,7 @@ proc isActionGranted { action permission_list user } { } if { ![info exist permission($action) ] } { dbg "requested UNKNOWN action $action for user $user is not granted" 0 + htmlErrorMsg "requested UNKNOWN action $action" return 0; } @@ -350,7 +351,7 @@ proc ChoseAction {action permission_list user} { showcontrols { ShowControls $permission_list $user } showgrades { htmlGradesTable db $permission_list $user } defaultview { htmlDefaultView $permission_list $user } - default { } + default { htmlErrorMsg "requested action <b>$action</b> is granted but not implemented yet" } } } else { # this action is permitted to everyone by default |