diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-20 22:53:04 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-20 22:53:04 -0500 |
| commit | fe52fc6bc09893666831058cf1e5a46a061fa885 (patch) | |
| tree | 4b4a406d7cb251e2528c40130e9e85c39b4c8ba2 /GradeBook_lib.tcl | |
| parent | 27ca1f9dfbaacb4fcecbf2f33db404ff2bc36093 (diff) | |
| download | GradeBook-fe52fc6bc09893666831058cf1e5a46a061fa885.tar.gz GradeBook-fe52fc6bc09893666831058cf1e5a46a061fa885.zip | |
added proc get_list_of_courses_db
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 85a80d8..4902ee2 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -22,6 +22,14 @@ array set GradebookServerConfig [list \ # ########################## procs begin ################################# +proc get_list_of_courses_db {} { + # obtain list of all courses DB + global GradebookServerConfig + set grades_db_dir $GradebookServerConfig(grades_db_dir) + set db_files_list [glob -tails -d ${grades_db_dir}/ *] + return $db_files_list +} + proc get_grading_scheme {} { # pair of letter grade and lower boundary for this grade # should be sorted in descended order! |