From 7c175258734fff9df778424c0f83891fc377cb10 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 21 Jan 2011 13:41:54 -0500
Subject: added UpdateColValue4GroupNameNonWeb

Ignore-this: c803fa7f134972783539e845cb8441a1

darcs-hash:20110121184154-067c0-c1a2f2a8e03e217a1ad8446e13ae1eec5ef563c3.gz
---
 GradeBook.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

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 {}]
-- 
cgit v1.2.3