diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 81a22a4..b2dbfa7 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -198,6 +198,11 @@ proc htmlDBout {db permission_list user {sort_col {}}} { foreach col $hidden_columns { set column_list [removeElementFromList $col $column_list] } + # add UserName column since a lot depends on it knowledge + if {{UserName} ni $column_list} { + lappend column_list UserName + } + set sql_column_str [colList2sqlColStr $column_list] # set users of what group user can see, i.e. set WHERE statement set where_statement {} @@ -230,6 +235,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { puts {<table class="gradestable" border="1">} puts "<tr>" foreach col $v(*) { + if { $col in $hidden_columns } continue # detect what column category it is set category [SelectColValue4User $col _Col_Category_] puts -nonewline "<th class=\"$category\"><a href=\"$script_name?action=sort&sortCol=$col\">$col</a>" @@ -270,6 +276,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { set user_shown "_UNSET_" } foreach index $v(*) { + if { $index in $hidden_columns } continue if { $index != "*" } { # detect what column category it is set category [SelectColValue4User $index _Col_Category_] |