diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-15 12:42:13 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-15 12:42:13 -0500 |
| commit | fbd164691985a646c1be9c57b01c34e59173a2d2 (patch) | |
| tree | c4981d5d6ddf2915ebf8bca9d3902c8511b0d2fc | |
| parent | ee5799a03f3bf89413771dd9becc568366c54ea4 (diff) | |
| download | GradeBook-fbd164691985a646c1be9c57b01c34e59173a2d2.tar.gz GradeBook-fbd164691985a646c1be9c57b01c34e59173a2d2.zip | |
dbg out for isActionGranted
| -rwxr-xr-x | GradeBook_lib.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 0a4b6d7..43bd017 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1116,6 +1116,7 @@ proc SetSortColumn {} { proc isActionGranted { action permission_list user } { array set permission $permission_list + dbg "$user requested action $action" msg_level_info if { $action == "defaultview" } { # this one permitted to everyone dbg "requested action $action for user $user is granted" msg_level_info |