diff options
| -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 |