adding non existing students

1 files changed, 15 insertions, 0 deletions

diff --git a/gradescope2gradebook.tcl b/gradescope2gradebook.tcl
index 217beec..beeacbb 100755
--- a/gradescope2gradebook.tcl
+++ b/gradescope2gradebook.tcl
@@ -97,6 +97,21 @@ set infoColumsMarkers {{ - Lateness \(H:M:S\)} { - Max Points} { - Submission Ti
 
 set skipCreationCol [concat $commonInfoCol $infoColumsMarkers]
 
+## adding students if they do not exist
+set fname [list First Name]
+set lname [list Last Name]
+set idnum [list SID]
+set eval_str [concat SELECT * FROM 'export_table']
+set err [catch {
+	gdb eval $eval_str v {
+		#AddUserNonWeb $fname $lname $email student $id $sect
+		AddUserNonWeb $v($fname) $v($lname) $v(Email) student $v($idnum) 1
+		#addStudent db $v($idnum)  $v(Contact)
+		}
+	} errStat ]
+iferror $err $errStat
+
+
 # add columns with reports to gradebook db
 foreach col [getColListFromAnyTable gdb export_table] {
 	if { [isInList $col $skipCreationCol] } {