From 85183a69301354079549eb4197da08bd115ef8fd Mon Sep 17 00:00:00 2001 From: "Eugeniy E. Mikhailov" Date: Sun, 15 Oct 2023 21:14:21 -0400 Subject: some more generic transformations --- importGrades2gradebook.tcl | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/importGrades2gradebook.tcl b/importGrades2gradebook.tcl index 55f55f4..e89bfd5 100755 --- a/importGrades2gradebook.tcl +++ b/importGrades2gradebook.tcl @@ -419,11 +419,7 @@ proc blackboardUsername2local { uname } { return "$uname@wm.edu" } -proc gradescopeUsername2local { uname } { - return $uname -} - -proc webassignUsername2local { uname } { +proc noTransformationNeededUsername2local { uname } { return $uname } @@ -527,6 +523,7 @@ set allForeignCols [getColListFromAnyTable foreignDB export_table] set dbOrigin Blackboard; # default if { {SID} in $allForeignCols } { set dbOrigin Gradescope } if { $dbFileToExport == "WebAssign.db" } { set dbOrigin WebAssign } +if { $dbFileToExport == "TheExperTA.db" } { set dbOrigin TheExpertTA } puts [list Detected foreign DB origin: $dbOrigin] switch $dbOrigin { @@ -539,7 +536,7 @@ switch $dbOrigin { alias parseColName parseBlackboardColName } Gradescope { - alias foreignUsername2local gradescopeUsername2local + alias foreignUsername2local noTransformationNeededUsername2local alias addStudentsFromForeignDB addStudentsFromGradescopeDB alias getForeignDBUsernames getGradescopeUsernames alias getForeignDBUserGrade getGradescopeUserGrade @@ -547,7 +544,7 @@ switch $dbOrigin { alias parseColName parseGradescopeColName } WebAssign { - alias foreignUsername2local webassignUsername2local + alias foreignUsername2local noTransformationNeededUsername2local alias addStudentsFromForeignDB addStudentsFromWebassignDB alias getForeignDBUsernames getWebassignUsernames alias getForeignDBUserGrade getWebassignUserGrade -- cgit v1.2.3