diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 12:25:34 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 12:25:34 -0500 |
| commit | 52c4be7309cf55346c950890e1c11d2781f5f4fc (patch) | |
| tree | fa760bc126773aca0067c7fdb26655d863744e0f /GradeBook.tcl | |
| parent | 85519d465f05caca9c62e6b281770b4674bc94ff (diff) | |
| download | GradeBook-52c4be7309cf55346c950890e1c11d2781f5f4fc.tar.gz GradeBook-52c4be7309cf55346c950890e1c11d2781f5f4fc.zip | |
added UderHiddenColums column in the GradesTable
Ignore-this: f35c38b0a5fff1769b52930e774979b3
darcs-hash:20110121172534-067c0-ad9caad7dd99ffcf26373f8e012ca1c04eff8920.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index bfadba4..bcf4606 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -62,7 +62,7 @@ proc AddUserNonWeb { first_name last_name user_name password_hash {group_name {g } proc CreateGradesTable {db} { - set err [catch {db eval {CREATE TABLE GradesTable(FirstName text, LastName text, UserName text, PasswordHash text, GroupName text)} } errStat] + set err [catch {db eval {CREATE TABLE GradesTable(FirstName text, LastName text, UserName text, PasswordHash text, GroupName text, UderHiddenColums text)} } errStat] if { $err } { htmlErrorMsg $errStat dbg "the following error happen: $errStat" 1 |