diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-12 23:33:20 -0400 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-12 23:33:20 -0400 |
| commit | a82807b9c6587b43e506f7cb857356f5e5f20020 (patch) | |
| tree | caff6ded462944954942e0d39736618d5c1b2cc2 /blackboard2gradebook.tcl | |
| parent | 6aaa1b4bcb57d11fe0d2671a73aee580f6e51f29 (diff) | |
| download | GradeBook-a82807b9c6587b43e506f7cb857356f5e5f20020.tar.gz GradeBook-a82807b9c6587b43e506f7cb857356f5e5f20020.zip | |
better name for foreign DB
Diffstat (limited to 'blackboard2gradebook.tcl')
| -rwxr-xr-x | blackboard2gradebook.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/blackboard2gradebook.tcl b/blackboard2gradebook.tcl index 69b6591..7dbeafe 100755 --- a/blackboard2gradebook.tcl +++ b/blackboard2gradebook.tcl @@ -71,7 +71,7 @@ set blackboardDB [lindex $argv 1] puts [list Categories to import: $categories2import] sqlite3 db $classDB -sqlite3 bdb $blackboardDB +sqlite3 foreignDB $blackboardDB proc iferror { err errStat {eval_str {""} }} { #return; # comment out when debugging @@ -300,11 +300,11 @@ alias getForeignDBUsernames getBlackboardUsernames alias getForeignDBUserGrade getBlackboardUserGrade alias normilizeGrade normilizeBlackboardGrade -addStudentsFromForeignDB bdb +addStudentsFromForeignDB foreignDB # now for every user add their grades -set username_list [getForeignDBUsernames bdb] -set cols2import [getColListFromAnyTable bdb export_table] +set username_list [getForeignDBUsernames foreignDB] +set cols2import [getColListFromAnyTable foreignDB export_table] set cols2import [ pickCols2import $cols2import $skipCreationCol $categories2import] @@ -316,7 +316,7 @@ foreach col $cols2import { } foreach uname $username_list { set locUname [foreignUsername2local $uname] - set grade [getForeignDBUserGrade bdb $uname $col ] + set grade [getForeignDBUserGrade foreignDB $uname $col ] set grade [normilizeGrade $grade $colInfo] updateGrade $shortCol $locUname $grade } |