diff options
| -rwxr-xr-x | GradeBook.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 90207a7..05af349 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -63,10 +63,10 @@ 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, UderHiddenColums text)} } errStat] - if { $err } { - htmlErrorMsg $errStat - dbg "the following error happen: $errStat" 1 - } + if { $err } { + htmlErrorMsg $errStat + dbg "the following error happen: $errStat" 1 + } # add special users aka special info rows AddUserNonWeb {} {} _Col_Category_ {} inforow |