diff options
| -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 } |