1 files changed, 11 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl
index bb414a1..79d5c48 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -489,6 +489,17 @@ proc UpdateColValue4UserNameNonWeb { columnname username val } {
 					} 
 }
 
+proc UpdateColValue4GroupNameNonWeb { columnname groupname val } {
+					set sql_str [concat UPDATE  GradesTable SET \"$columnname\"=\'$val\' where GroupName=\"$groupname\"]
+					set err2 [catch {
+						db eval $sql_str
+					} errStat2 ]
+					if { $err2 } {
+						htmlErrorMsg  $errStat2 
+						dbg  "the following error happen: $errStat2" 3
+					} 
+}
+
 proc UpdateGrades { permission_list user } {
 	global script_name
 	set subaction [::ncgi::value subaction {}]