diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-03-08 17:26:03 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-03-08 17:26:03 -0500 |
| commit | f4d291a29f2c701da125f3d7adb750fb3399ed44 (patch) | |
| tree | 4a690213cca638dbdb463c8bf12a0526b030517b /GradeBook_lib.tcl | |
| parent | 4e02b15af9f5577957ad56ad3a48b81029342e32 (diff) | |
| download | GradeBook-f4d291a29f2c701da125f3d7adb750fb3399ed44.tar.gz GradeBook-f4d291a29f2c701da125f3d7adb750fb3399ed44.zip | |
hide unwanted grades category in DB html out
Ignore-this: b8364948bcd4e2bfee346aefd3055363
darcs-hash:20110308222603-067c0-477a842c9444273d90e73e46d8fe820b7a891329.gz
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 8 |
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 |