diff options
| -rwxr-xr-x | blackboard2gradebook.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/blackboard2gradebook.tcl b/blackboard2gradebook.tcl index dd107c7..609a479 100755 --- a/blackboard2gradebook.tcl +++ b/blackboard2gradebook.tcl @@ -46,8 +46,8 @@ try { } ################# Config ############################################ -set categories2export [list FinalExam HomeWork LabReport] -#set categories2export [list FinalExam] +set categories2import [list FinalExam HomeWork LabReport] +#set categories2import [list FinalExam] set commonInfoCol {{First Name} {Last Name} {Student ID} {Last Access} Username Availability } set infoColumsMarkers {{ - Lateness \(H:M:S\)} { - Max Points} { - Submission Time} {Total Lateness \(H:M:S\)} {Current Weighted} {Total \[} } @@ -68,7 +68,7 @@ set DBDEBUG [expr {$params(d)}] set classDB [lindex $argv 0] set blackboardDB [lindex $argv 1] -puts [list Categories to export: $categories2export] +puts [list Categories to import: $categories2import] sqlite3 db $classDB sqlite3 bdb $blackboardDB @@ -234,7 +234,7 @@ proc updateGrade { col locUname grade } { } } -proc pickCols2import { cols2import skipCreationCol categories2export } { +proc pickCols2import { cols2import skipCreationCol categories2import } { set reduced_list {} foreach col $cols2import { if { [isInList $col $skipCreationCol] } { @@ -243,8 +243,8 @@ proc pickCols2import { cols2import skipCreationCol categories2export } { } set colInfo [trimColName $col] set category [lindex $colInfo 1] - if { $category ni $categories2export } { - dbg [list skipping $col in $category, permitted categories: $categories2export] + if { $category ni $categories2import } { + dbg [list skipping $col in $category, permitted categories: $categories2import] continue } lappend reduced_list $col @@ -274,7 +274,7 @@ addStudentsFromDB bdb set username_list [getBlackboardUsernames bdb] set cols2import [getColListFromAnyTable bdb export_table] -set cols2import [ pickCols2import $cols2import $skipCreationCol $categories2export] +set cols2import [ pickCols2import $cols2import $skipCreationCol $categories2import] foreach col $cols2import { set colInfo [trimColName $col] |