diff options
Diffstat (limited to 'gradescope2gradebook.tcl')
| -rwxr-xr-x | gradescope2gradebook.tcl | 15 |
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] } { |