From 59dbe5eda580e8be6b25d32ba09be082298c5f07 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 21 Jan 2011 10:16:03 -0500
Subject: added UpdateColValue4UserNameNonWeb proc

Ignore-this: 1fa5429eef0a5be8ed6a2c5d1338f54d

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

(limited to 'GradeBook.tcl')

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 68bf1a7..0ca4dca 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -480,6 +480,17 @@ proc UpdateColumn { permission_list user } {
 	DeleteColumnNonWeb $oldcolumnname
 }
 
+proc UpdateColValue4UserNameNonWeb { columnname username val } {
+					set sql_str [concat UPDATE  GradesTable SET \"$columnname\"=\'$val\' where UserName=\"$username\"]
+					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