aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-ximportGrades2gradebook.tcl9
1 files changed, 9 insertions, 0 deletions
diff --git a/importGrades2gradebook.tcl b/importGrades2gradebook.tcl
index bd66e14..954f6b2 100755
--- a/importGrades2gradebook.tcl
+++ b/importGrades2gradebook.tcl
@@ -220,6 +220,12 @@ proc parseGradescopeColName { col } {
set name $shortCol
set result [regexp -nocase {(\D+)(\d+)} $shortCol match name number]
set result [regexp -nocase {(\S+)\s+$} $name match name]
+ if { [regexp -nocase {Pre-lab} $name match dummy] } {
+ set category HomeWork;
+ }
+ if { [regexp -nocase {Report} $name match dummy] } {
+ set category LabReport;
+ }
switch $name {
Homework { set name Homework ; set category HomeWork }
Lab { set name Lab ; set category LabReport}
@@ -431,6 +437,9 @@ set cols2import [ pickCols2import $cols2import $skipCreationCol $categories2impo
foreach col $cols2import {
set colInfo [parseColName $col]
set shortCol [lindex $colInfo 0]
+ set category [lindex $colInfo 1]
+ set maxScore [lindex $colInfo 2]
+ puts "==========> $colInfo"
if { ![doesColumnExists $shortCol GradesTable] } {
dbRequest [list AddColumnNonWeb $shortCol $category $maxScore]
}