diff options
Diffstat (limited to 'gradescope2gradebook.tcl')
| -rwxr-xr-x | gradescope2gradebook.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gradescope2gradebook.tcl b/gradescope2gradebook.tcl index 83e5b9a..c750b86 100755 --- a/gradescope2gradebook.tcl +++ b/gradescope2gradebook.tcl @@ -14,7 +14,7 @@ if { $argc < 2 } { puts " $argv0 gradebook.sqlitedb gradescope.sqlitedb" puts {} puts { expect both files to be sqilte tables:} - puts { gradescope should have a single table 'gradescope':} + puts { gradescope should have a single table 'export_table':} puts {Example:} puts [concat " $argv0" { 2020_Fall_Phys251 gradescope.db}] exit @@ -51,7 +51,7 @@ proc getColListFromAnyTable {db table} { proc getGradescopeUsernames { db } { set username_list {} - set eval_str [concat SELECT Email FROM gradescope] + set eval_str [concat SELECT Email FROM export_table] set err [catch { $db eval $eval_str v { lappend username_list $v(Email) @@ -64,7 +64,7 @@ proc getGradescopeUsernames { db } { proc getGradescopeUserGrade { db uname col } { set username_list {} - set eval_str [concat SELECT \"$col\" FROM gradescope where Email=='$uname'] + set eval_str [concat SELECT \"$col\" FROM export_table where Email=='$uname'] set val [$db onecolumn $eval_str] return $val } @@ -98,7 +98,7 @@ set infoColumsMarkers {{ - Lateness \(H:M:S\)} { - Max Points} { - Submission Ti set skipCreationCol [concat $commonInfoCol $infoColumsMarkers] # add columbs with reports to gradebook db -foreach col [getColListFromAnyTable gdb gradescope] { +foreach col [getColListFromAnyTable gdb export_table] { if { [isInList $col $skipCreationCol] } { continue } @@ -123,7 +123,7 @@ foreach col [getColListFromAnyTable gdb gradescope] { # now for every user add their grades set username_list [getGradescopeUsernames gdb] foreach uname $username_list { - foreach col [getColListFromAnyTable gdb gradescope] { + foreach col [getColListFromAnyTable gdb export_table] { if { [isInList $col $skipCreationCol] } { continue } |