diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2016-11-29 09:49:48 -0500 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2016-11-29 09:49:48 -0500 |
| commit | bd4c19a6ec72de56e1caec705cf0d6fe40a19520 (patch) | |
| tree | 1b4c74b2213d20d7bde86948fb018cb8c21f0828 | |
| parent | d80cb9bb6c1a2436a4ffe5a4294c8247043412bd (diff) | |
| download | GradeBook-bd4c19a6ec72de56e1caec705cf0d6fe40a19520.tar.gz GradeBook-bd4c19a6ec72de56e1caec705cf0d6fe40a19520.zip | |
added user group output to the log
| -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 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) } |