added proc for grand weights for categories

Ignore-this: d6f77faff0f4e0be94f043027d2e420b

darcs-hash:20110311174804-067c0-a156a049484dff19b64912d2cf8d93a8a76c4a94.gz

1 files changed, 11 insertions, 0 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index f32f746..073ac60 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -21,6 +21,17 @@ set grades_category [list \
 
 
 # ########################## procs begin #################################
+proc getGradingWeights { } {
+	return [ list \
+		HomeWork  .15 \
+		Quiz      .10 \
+		LabReport .25 \
+		Participation .05 \
+		Midterm       .20 \
+		Final         .25 \
+		]
+}
+
 proc isCalculateTotalForCategorySet { category } {
 	switch $category {
 		"unset"      {set flag false}