proper indentation in EditGradesCategories

1 files changed, 29 insertions, 29 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 53e904d..43bcb0b 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -638,41 +638,41 @@ proc EditGradesCategories { db permission_list user } {
 				puts  "<tr>"
 				foreach col  $v(*) {
 					puts -nonewline "<th>$col</th>"
-					}
-					puts  "<tr>"
-				} else {
-					puts  "<tr>"
 				}
-				foreach index $v(*) {
-					if { $index != "*" } {
-						switch $index {
-							"CategoryWeight" {
-								puts "<th><input type=\"text\" name=\"$v(CategoryName)_weight\" value=\"$v(CategoryWeight)\" size=5></th>"
-							}
-							"NeedsTotal" {
-								if { $v(NeedsTotal) eq "true" } {
-									set checkbox_flag "checked"
-								} else {
-									set checkbox_flag ""
-								}
-									puts "<th><input type=\"checkbox\" name=\"$v(CategoryName)_needs_total\" value=\"\" $checkbox_flag></th>"
-							}
-							"NumberToDrop" {
-								puts "<td><input type=\"text\" name=\"$v(CategoryName)_NumberToDrop\" value=\"$v(NumberToDrop)\" size=5></td>"
-							}
-							default {
-								puts -nonewline "<td>$v($index)</td>"
+				puts  "<tr>"
+			} else {
+				puts  "<tr>"
+			}
+			foreach index $v(*) {
+				if { $index != "*" } {
+					switch $index {
+						"CategoryWeight" {
+							puts "<th><input type=\"text\" name=\"$v(CategoryName)_weight\" value=\"$v(CategoryWeight)\" size=5></th>"
+						}
+						"NeedsTotal" {
+							if { $v(NeedsTotal) eq "true" } {
+								set checkbox_flag "checked"
+							} else {
+								set checkbox_flag ""
 							}
+							puts "<th><input type=\"checkbox\" name=\"$v(CategoryName)_needs_total\" value=\"\" $checkbox_flag></th>"
+						}
+						"NumberToDrop" {
+							puts "<td><input type=\"text\" name=\"$v(CategoryName)_NumberToDrop\" value=\"$v(NumberToDrop)\" size=5></td>"
+						}
+						default {
+							puts -nonewline "<td>$v($index)</td>"
 						}
 					}
 				}
-				puts "</tr>"
 			}
-		} errStat ]
-		puts  "</table>"
-		if { $err } {
-			htmlErrorMsg  $errStat 
-			dbg  "the following error happen: $errStat" msg_level_critical
+			puts "</tr>"
+		}
+	} errStat ]
+	puts  "</table>"
+	if { $err } {
+		htmlErrorMsg  $errStat 
+		dbg  "the following error happen: $errStat" msg_level_critical
 	} 
 	puts {<input type="hidden" name="action" value="update_grades_categories"/>}
 	puts {<input type="submit" name="subaction" value="Submit" />}