From ae32769254b3641abf8ff06f5bec229fefa0ebe0 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 21 Jan 2011 10:16:33 -0500
Subject: IpdateGrades uses UpdateColValue4UserNameNonWeb

Ignore-this: 7019cd2d7459956f3a1ec6deb30d0ff5

darcs-hash:20110121151633-067c0-b10d8ac4c631cb482acd4c292e8a8dd499b4c9d2.gz
---
 GradeBook.tcl | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 0ca4dca..3943d4f 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -501,18 +501,10 @@ proc UpdateGrades { permission_list user } {
 		set eval_str "SELECT UserName  FROM GradesTable"
 		set err [catch {
 				db eval $eval_str v {
-				if { [info exist colval($v(UserName))] } {	
-					set sql_str [concat UPDATE  GradesTable SET \"$columnname\"=\'$colval($v(UserName))\' where UserName=\"$v(UserName)\"]
-					set err2 [catch {
-						db eval $sql_str
-					} errStat2 ]
-					if { $err2 } {
-						htmlErrorMsg  $errStat2 
-						dbg  "the following error happen: $errStat2" 3
-					} 
-				}
+					if { [info exist colval($v(UserName))] } {	
+						UpdateColValue4UserNameNonWeb $columnname $v(UserName) $colval($v(UserName))
+					}
 				}
-				
 			} errStat ]
 		if { $err } {
 			htmlErrorMsg  $errStat 
-- 
cgit v1.2.3