butification

darcs-hash:20101216195319-067c0-93856cc2ecef9c965bdf3fa5c2e4cc072ae268da.gz

1 files changed, 5 insertions, 5 deletions

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 3b7e187..ce26c6d 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -242,14 +242,14 @@ proc ChoseAction {action permission_list user} {
 	dbg "requested action: $action" 3
 	if { [isActionGranted $action $permission_list $user] } {
 		switch $action {
-			sort { SetSortColumn; ChoseAction defaultview $permission_list $user } 
-			addcolumn { AddColumn } 
+			sort        { SetSortColumn; ChoseAction defaultview $permission_list $user } 
+			addcolumn    { AddColumn } 
 			deletecolumn { } 
 			renamecolumn { } 
 			showcontrols { } 
-			showgrades { htmlGradesTable db $permission_list  $user }
-			defaultview { htmlDefaultView   $permission_list  $user }
-			default { }
+			showgrades   { htmlGradesTable db $permission_list  $user }
+			defaultview  { htmlDefaultView    $permission_list  $user }
+			default      { }
 		}	
 	} 
 }