better name for foreign DB

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
 	}