diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-05-09 17:22:36 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-05-09 17:22:36 -0400 |
| commit | e74d72c10fc56f6c77b42d237c32c9300525deda (patch) | |
| tree | 5371183c1e59a0f4d4946fe9ca44e973996fae37 | |
| parent | 54445e78ce220c4a990ae0235ebef7eefc9858c4 (diff) | |
| download | GradeBook-e74d72c10fc56f6c77b42d237c32c9300525deda.tar.gz GradeBook-e74d72c10fc56f6c77b42d237c32c9300525deda.zip | |
removed copy of subroutine
Ignore-this: 7d6053e0a28a831acf22092853e6c0a0
darcs-hash:20110509212236-067c0-775d07015760085c3a1dd5424d11288e00f73926.gz
| -rwxr-xr-x | GradeBook_lib.tcl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index aa07ae5..6a3371c 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -299,19 +299,6 @@ proc grade_Category2html_name { category } { return $html_name } -proc grade_Category2html_name { category } { - switch $category { - "unset" {set html_name --Select--} - Quiz {set html_name Quiz} - HomeWork {set html_name HomeWork} - LabReport {set html_name LabReport} - MidTerm {set html_name MidTerm} - FinalExam {set html_name FinalExam} - default {set html_name unknown} - } - return $html_name -} - proc dbg {msg {level 1}} { if { $level <=2 } { set fid [open log a+] |