From b3cf94250993de1822231ab068504573ec515dc2 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Thu, 16 Dec 2010 14:53:19 -0500
Subject: butification

darcs-hash:20101216195319-067c0-93856cc2ecef9c965bdf3fa5c2e4cc072ae268da.gz
---
 GradeBook.tcl | 10 +++++-----
 1 file 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      { }
 		}	
 	} 
 }
-- 
cgit v1.2.3