diff options
Diffstat (limited to 'importGrades2gradebook.tcl')
| -rwxr-xr-x | importGrades2gradebook.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/importGrades2gradebook.tcl b/importGrades2gradebook.tcl index 5995686..6be7abb 100755 --- a/importGrades2gradebook.tcl +++ b/importGrades2gradebook.tcl @@ -338,6 +338,10 @@ proc gradescopeUsername2local { uname } { proc updateGrade { col locUname grade } { + if { ! [isThereUserNameInTheGradesTable $locUname] } { + dbg [list "GradesDB does not have user" $locUname] + return + } set oldGrade [SelectColValue4User $col $locUname ] #puts "$locUname: $col oldGrade \{$oldGrade\} --> \{$grade\}" if { $oldGrade == $grade } { return } |