diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-21 17:31:27 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-21 17:31:27 -0500 |
| commit | 462cbe8a3a92ddaf29ee1c3e406461197265accd (patch) | |
| tree | a02f07cdbb370c2bc56db9c0d6277fab94a45658 /GradeBook_lib.tcl | |
| parent | cc6219213508a777fc6e44385f308c678cc78a39 (diff) | |
| download | GradeBook-462cbe8a3a92ddaf29ee1c3e406461197265accd.tar.gz GradeBook-462cbe8a3a92ddaf29ee1c3e406461197265accd.zip | |
use of better logging in isActionGranted
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; } } |