diff options
| -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) } |