diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 31fefca..12d044c 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -697,6 +697,32 @@ proc EditGradesCategories { db permission_list user } { } +proc isThereUserNameInTheGradesTable { username } { + set eval_str [concat SELECT UserName FROM \'GradesTable\' WHERE UserName == \'$username\'] + set username_list {} + set err [catch { + db eval $eval_str v { + lappend username_list $v(UserName) + } + } errStat ] + if { $err } { + dbg "we should never be here if UserName in GradesTable exists" msg_level_critical + dbg $errStat msg_level_critical + htmlErrorMsg $errStat + return false + } + if { 0 == [llength $username_list] } { + return false + } else { + return true + } +} + +proc CheckAndCreateAsNeededInfoRow { row_name } { + if { ![isThereUserNameInTheGradesTable $row_name] } { + AddUserNonWeb {} {} $row_name inforow + } +} proc CreateGradesTable {db} { # construct sql string for table creation @@ -1793,6 +1819,57 @@ proc UpdateColValue4GroupNameNonWeb { columnname groupname val } { } } +proc LeaveOnlyNumbersInList { l } { + set new_list {} + foreach {el} $l { + if { [string is double -strict $el] } { + lappend new_list $el + } + } + return $new_list +} + +proc GetGroupValuesInColumn { group_name columnname } { + set col_values {} + set eval_str "SELECT \"$columnname\" FROM GradesTable WHERE GroupName=\"$group_name\"" + set err [catch { + db eval $eval_str v { + if { [info exist v($columnname)] } { + lappend col_values $v($columnname) + } + } + } errStat ] + if { $err } { + htmlErrorMsg $errStat + dbg "the following error happen: $errStat" msg_level_critical + } + return $col_values +} + +proc UpdateColumnHighestGrade { columnname } { + # find maximum in the column with a given name among active students + set val "N/A" + set col_values [GetGroupValuesInColumn student $columnname] + set col_values [LeaveOnlyNumbersInList $col_values] + if { 0 != [llength $col_values] } { + set val [expr max([join $col_values ,])] + } + CheckAndCreateAsNeededInfoRow _The_Highest_Grade_ + UpdateColValue4UserNameNonWeb $columnname _The_Highest_Grade_ $val +} + +proc UpdateColumnLowestGrade { columnname } { + # find minimum in the column with a given name among active students + set val "N/A" + set col_values [GetGroupValuesInColumn student $columnname] + set col_values [LeaveOnlyNumbersInList $col_values] + if { 0 != [llength $col_values] } { + set val [expr min([join $col_values ,])] + } + CheckAndCreateAsNeededInfoRow _The_Lowest_Grade_ + UpdateColValue4UserNameNonWeb $columnname _The_Lowest_Grade_ $val +} + proc UpdateGrades { permission_list user } { global script_name set subaction [::ncgi::value subaction {}] @@ -1815,6 +1892,8 @@ proc UpdateGrades { permission_list user } { dbg "the following error happen: $errStat" msg_level_critical } else { calculteWeightedTotals + UpdateColumnHighestGrade $columnname + UpdateColumnLowestGrade $columnname } } |