aboutsummaryrefslogtreecommitdiff
path: root/gradescope2gradebook.tcl
diff options
context:
space:
mode:
authorEugeniy E. Mikhailov <evgmik@gmail.com>2021-03-10 22:20:30 -0500
committerEugeniy E. Mikhailov <evgmik@gmail.com>2021-03-10 22:20:30 -0500
commitca13e8f5169187d2a0daaa98e88232d4bd7154d6 (patch)
tree7df6cbd032ad3ccfe6598e4cb4f1ff0b605eea2d /gradescope2gradebook.tcl
parentf3ab02f3f69a6200099a9e778f8dccd9798e0825 (diff)
downloadGradeBook-ca13e8f5169187d2a0daaa98e88232d4bd7154d6.tar.gz
GradeBook-ca13e8f5169187d2a0daaa98e88232d4bd7154d6.zip
changed table name for export
Diffstat (limited to 'gradescope2gradebook.tcl')
-rwxr-xr-xgradescope2gradebook.tcl10
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
}