From bd4c19a6ec72de56e1caec705cf0d6fe40a19520 Mon Sep 17 00:00:00 2001 From: "Eugeniy E. Mikhailov" Date: Tue, 29 Nov 2016 09:49:48 -0500 Subject: added user group output to the log --- 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 58c2ac8..890bd06 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -2708,6 +2708,7 @@ proc AccessGroupRights {db user } { set group guest } dbg "Detected group is $group" msg_level_info + addLogEntry userGroup "$group" msg_level_log set eval_str [list SELECT actionname,$group FROM AccessRightsTable ] set permission_list [list GroupName $group] db eval $eval_str permissions { lappend permission_list $permissions(actionname) $permissions($group) } -- cgit v1.2.3