diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 89206b7..c75c082 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1345,6 +1345,7 @@ proc getPhotoUrl { IdNum } { proc htmlFormatColVal { col_value columnname user user_shown permission_list {font_style {}} } { global script_name global GradebookServerConfig + set col_value_raw $col_value set html_str {} set font_style_strt {} set font_style_end {} @@ -1394,6 +1395,14 @@ proc htmlFormatColVal { col_value columnname user user_shown permission_list {fo UserHiddenGradeCategories \ ] + # adding histogram marker + if { ([SelectColValue4User GroupName $user_shown] ne "inforow") && ($user ni $special_user_names) && ($columnname ni $embeded_actions_excluded_special_columns) } { + array set v [getColAndValForUserName _The_Grades_Hist_Limits_ [colList2sqlColStr [list $columnname]] {}] + set col_histogram_limits $v($columnname) + set histPositionMarker [markNthBin [binInHistogram $col_value_raw $col_histogram_limits]] + set col_str_value $histPositionMarker<p>$col_str_value + } + if { ([SelectColValue4User GroupName $user_shown] ne "inforow") && ($user ni $special_user_names) && ($category ne "weighted_column") && ($columnname ni $embeded_actions_excluded_special_columns) } { if { [isActionGranted edit_user_grade $permission_list $user] && ($user_shown ne "_UNSET_") } { set col_str_value "<a href=\"$script_name?action=edit_user_grade_request&user2modify=$user_shown&column2modify=$columnname\">${col_str_value}</a>" |