fixes

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]
 	}