diff options
Diffstat (limited to 'importGrades2gradebook.tcl')
| -rwxr-xr-x | importGrades2gradebook.tcl | 11 |
1 files 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 |