diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index c7ba1be..2125384 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1116,16 +1116,16 @@ proc isActionGranted { action permission_list user } { return 1; } if { ![info exist permission($action) ] } { - dbg "requested UNKNOWN action $action for user $user is not granted" 0 + dbg "requested UNKNOWN action $action for user $user is not granted" msg_level_warning htmlErrorMsg "requested UNKNOWN action $action" return 0; } if {$permission($action) } { - dbg "requested action $action for user $user is granted" 4 + dbg "requested action $action for user $user is granted" msg_level_info return 1; } else { - dbg "requested action $action for user $user is not granted" 1 + dbg "requested action $action for user $user is not granted" msg_level_info return 0; } } |