diff options
author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-03-10 22:20:30 -0500 |
---|---|---|
committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-03-10 22:20:30 -0500 |
commit | ca13e8f5169187d2a0daaa98e88232d4bd7154d6 (patch) | |
tree | 7df6cbd032ad3ccfe6598e4cb4f1ff0b605eea2d /gradescope2gradebook.tcl | |
parent | f3ab02f3f69a6200099a9e778f8dccd9798e0825 (diff) | |
download | GradeBook-ca13e8f5169187d2a0daaa98e88232d4bd7154d6.tar.gz GradeBook-ca13e8f5169187d2a0daaa98e88232d4bd7154d6.zip |
changed table name for export
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 } |