added proc get_list_of_courses_db

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!