diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index f459d9a..7ca586f 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1271,6 +1271,7 @@ proc htmlFormatTheStatsForGradeRaw { stats_needed sql_column_str hidden_columns "mean" {set sql_user_name _The_Mean_Grade_} "median" {set sql_user_name _The_Median_Grade_} "stdev" {set sql_user_name _The_StDev_Grade_} + "histogram_plot" {set sql_user_name _The_Grades_Hist_Text_Plot_} default { htmlErrorMsg "Required stats ($stats_needed) to output is not known" return "" @@ -1296,6 +1297,7 @@ proc htmlFormatTheStatsForGradeRaw { stats_needed sql_column_str hidden_columns "mean" {set col_value "Mean"} "median" {set col_value "Median"} "stdev" {set col_value "StDev"} + "histogram_plot" {set col_value "Histogram"} default {set col_value "UNKNOWN"} } } @@ -1528,6 +1530,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { puts [htmlFormatTheStatsForGradeRaw stdev $sql_column_str $hidden_columns] puts [htmlFormatTheStatsForGradeRaw median $sql_column_str $hidden_columns] puts [htmlFormatTheStatsForGradeRaw low $sql_column_str $hidden_columns] + puts [htmlFormatTheStatsForGradeRaw histogram_plot $sql_column_str $hidden_columns] } puts "<tr>" |