hide unwanted grades category in DB html out

Ignore-this: b8364948bcd4e2bfee346aefd3055363

darcs-hash:20110308222603-067c0-477a842c9444273d90e73e46d8fe820b7a891329.gz

1 files changed, 8 insertions, 0 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 2571cf8..f7ce383 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -356,6 +356,14 @@ proc htmlDBout {db permission_list user {sort_col {}}} {
 	foreach col $hidden_columns {
 		set column_list [removeElementFromList $col $column_list]
 	}
+	# check which GradesCategory user does not want to see
+	set UserHiddenGradeCategories [concat $hidden_columns [SelectColValue4User UserHiddenGradeCategories $user]]
+	foreach col $column_list {
+		if { [SelectColValue4User $col  _Col_Category_] in $UserHiddenGradeCategories } {
+			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