From 7f80c0302aa0fdb273eafc15127ae560aef10dc2 Mon Sep 17 00:00:00 2001 From: "Eugeniy E. Mikhailov" Date: Mon, 18 Mar 2024 10:43:50 -0400 Subject: class index sorted from most recent years to less recent --- GradeBook_lib.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'GradeBook_lib.tcl') diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 914370f..0d48ed0 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -40,7 +40,7 @@ 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 [lsort [glob -tails -d ${grades_db_dir}/ *]] + set db_files_list [lsort -decreasing [glob -tails -d ${grades_db_dir}/ *]] return $db_files_list } -- cgit v1.2.3