From b5a49563be3338b40e238e42539d84e3d5511bf7 Mon Sep 17 00:00:00 2001
From: "Eugeniy E. Mikhailov" <evgmik@gmail.com>
Date: Fri, 11 May 2018 00:38:49 -0400
Subject: added regimental student grade positioning marker in histogram

---
 GradeBook_lib.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)

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>"
-- 
cgit v1.2.3