added new column categories Note, Info, AdmissionScore

1 files changed, 7 insertions, 1 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index bcfb235..270c7a1 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -204,6 +204,9 @@ proc default_grades_category {} {
 			Presentation\
 			MidTerm\
 			FinalExam\
+			Note\
+			Info\
+			AdmissionScore\
 		]
 	return $grades_category
 }
@@ -546,7 +549,10 @@ proc grade_Category2html_name { category } {
 		Participation {set html_name Participation}
 		MidTerm      {set html_name MidTerm}
 		FinalExam    {set html_name FinalExam}
-		default      {set html_name unknown}
+		Note         {set html_name Note}
+		AdmissionScore    {set html_name AdmissionScore}
+		Info         {set html_name Info}
+		default      {set html_name $category}
 	}
 	return $html_name
 }