From ba630f7dd320391acc72e459f7f4188179465be2 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Fri, 21 Jan 2011 12:27:58 -0500 Subject: indentation fix Ignore-this: 555951394d23de1741e48e4676718217 darcs-hash:20110121172758-067c0-af795031973fe728c558c00e1c8ce8262f92e61e.gz --- GradeBook.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'GradeBook.tcl') 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 -- cgit v1.2.3