diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index bf4d7ca..d7b9b5f 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -384,7 +384,7 @@ proc CreateCourseInfoTable {db} { proc SelectItemFromCourseInfoTable { item } { set value {} - set eval_str "SELECT \"Value\" FROM CourseInfoTable where Item=\"$item\"" + set eval_str "SELECT Value FROM CourseInfoTable where Item=:item" set err [catch { db eval $eval_str v { set value $v(Value) |