From fbd164691985a646c1be9c57b01c34e59173a2d2 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Sat, 15 Dec 2012 12:42:13 -0500
Subject: dbg out for isActionGranted

---
 GradeBook_lib.tcl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'GradeBook_lib.tcl')

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
-- 
cgit v1.2.3