diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 12:27:58 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 12:27:58 -0500 |
| commit | ba630f7dd320391acc72e459f7f4188179465be2 (patch) | |
| tree | d94b4ef218f8fd06622f956a205ca49350129e1c | |
| parent | af5300d4fd566cf78fba88ff948f7726e92b0f8b (diff) | |
| download | GradeBook-ba630f7dd320391acc72e459f7f4188179465be2.tar.gz GradeBook-ba630f7dd320391acc72e459f7f4188179465be2.zip | |
indentation fix
Ignore-this: 555951394d23de1741e48e4676718217
darcs-hash:20110121172758-067c0-af795031973fe728c558c00e1c8ce8262f92e61e.gz
| -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 |