From 767b9d5f263db37161e3f828eda4f02e70d8d783 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 11 Mar 2011 12:48:04 -0500
Subject: added proc for grand weights for categories

Ignore-this: d6f77faff0f4e0be94f043027d2e420b

darcs-hash:20110311174804-067c0-a156a049484dff19b64912d2cf8d93a8a76c4a94.gz
---
 GradeBook_lib.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

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}
-- 
cgit v1.2.3