enable creation of users from gradescope and blackboard

1 files changed, 5 insertions, 6 deletions

diff --git a/importGrades2gradebook.tcl b/importGrades2gradebook.tcl
index f05b273..3f3fb7d 100755
--- a/importGrades2gradebook.tcl
+++ b/importGrades2gradebook.tcl
@@ -270,16 +270,16 @@ proc addStudentsFromBlackboardDB { db } {
 	# blackboard does not provide the following info
 	set id unknownID
 	set section unknownSection
-	puts "Blackboard does not provide Student ID and Section number, skipping user addition"
-	return
+	puts "Blackboard does not provide Section number"
 
 	set fname [list First Name]
 	set lname [list Last Name]
+	set idnum [list Student ID]
 	set eval_str [concat SELECT * FROM 'export_table']
 	set err [catch {
 		$db eval $eval_str v {
 			set username [blackboardUsername2local $v(Username)]
-			dbRequest [list AddUserNonWeb $v($fname) $v($lname) $username student $id $section]
+			dbRequest [list AddUserNonWeb $v($fname) $v($lname) $username student $v($idnum) $section]
 			}
 		} errStat ]
 	iferror $err $errStat
@@ -288,8 +288,7 @@ proc addStudentsFromBlackboardDB { db } {
 proc addStudentsFromGradescopeDB { db } {
 	# blackboard does not provide the following info
 	set section unknownSection
-	puts "Gradescope does not provide Section number, skipping user addition"
-	return
+	puts "Gradescope does not provide Section number"
 
 	set fname [list First Name]
 	set lname [list Last Name]
@@ -299,7 +298,7 @@ proc addStudentsFromGradescopeDB { db } {
 		$db eval $eval_str v {
 			set username [gradescopeUsername2local $v(Email)]
 			set id $v($idnum)
-			dbRequest [list AddUserNonWeb $v($fname) $v($lname) $username student $id $section]
+			dbRequest [list AddUserNonWeb $v($fname) $v($lname) $username student $v($idnum) $section]
 			}
 		} errStat ]
 	iferror $err $errStat