diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2022-05-18 16:08:09 -0400 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2022-05-18 16:08:09 -0400 |
| commit | f87a9169f75479a8056a3f3ea9157cc7c77e65c0 (patch) | |
| tree | 518b2289c6a3cbc679808613f3a13a5a237d6b9f /importGrades2gradebook.tcl | |
| parent | d3c197dd0c7527b130608d69e5d666f4c1cbf71e (diff) | |
| download | GradeBook-f87a9169f75479a8056a3f3ea9157cc7c77e65c0.tar.gz GradeBook-f87a9169f75479a8056a3f3ea9157cc7c77e65c0.zip | |
skip grade update for non existing user
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 } |