diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-10 00:55:52 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-10 00:55:52 -0500 |
| commit | 6c41dfa2ede315a734633d851385e06d7079a17f (patch) | |
| tree | 290b29f5429f3aef4e805c2f278579a489892f31 /GradeBook.tcl | |
| parent | b1703d735c21942a680f6e3623f5348f03f539de (diff) | |
| download | GradeBook-6c41dfa2ede315a734633d851385e06d7079a17f.tar.gz GradeBook-6c41dfa2ede315a734633d851385e06d7079a17f.zip | |
special user names for mac points and column category
Ignore-this: cf1126608f2a9911ad6835ea38107bf1
darcs-hash:20110110055552-067c0-a4e2a3294a43897da525f1c7b4bdbf39f33f1f2e.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index cb86d94..daf3688 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -62,6 +62,10 @@ proc CreatePasswordsTable {db} { proc CreateGradesTable {db} { db eval {CREATE TABLE GradesTable(FirstName text, LastName text, UserName text, HW01 real)} + set eval_str [list INSERT INTO GradesTable VALUES('','', '_Col_Category_', '')] + db eval $eval_str + set eval_str [list INSERT INTO GradesTable VALUES('','', '_Max_Points_', '')] + db eval $eval_str set eval_str [list INSERT INTO GradesTable VALUES('John','Lname1', 'jhn', 7)] db eval $eval_str set eval_str [list INSERT INTO GradesTable VALUES('Ale','Lname2', 'ale', 5)] |