diff options
| -rwxr-xr-x | blackboard2gradebook.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/blackboard2gradebook.tcl b/blackboard2gradebook.tcl index 7dbeafe..a616a0f 100755 --- a/blackboard2gradebook.tcl +++ b/blackboard2gradebook.tcl @@ -140,7 +140,7 @@ proc isInList { col listCol} { } -proc trimColName { col } { +proc parseBlackboardColName { col } { set shortCol $col set category Note set maxScore 0 @@ -241,7 +241,7 @@ proc pickCols2import { cols2import skipCreationCol categories2import } { dbg "skipping column $col" continue } - set colInfo [trimColName $col] + set colInfo [parseColName $col] set category [lindex $colInfo 1] if { $category ni $categories2import } { dbg [list skipping $col in $category, permitted categories: $categories2import] @@ -299,6 +299,7 @@ alias addStudentsFromForeignDB addStudentsFromBlackboardDB alias getForeignDBUsernames getBlackboardUsernames alias getForeignDBUserGrade getBlackboardUserGrade alias normilizeGrade normilizeBlackboardGrade +alias parseColName parseBlackboardColName addStudentsFromForeignDB foreignDB @@ -309,7 +310,7 @@ set cols2import [getColListFromAnyTable foreignDB export_table] set cols2import [ pickCols2import $cols2import $skipCreationCol $categories2import] foreach col $cols2import { - set colInfo [trimColName $col] + set colInfo [parseColName $col] set shortCol [lindex $colInfo 0] if { ![doesColumnExists $shortCol GradesTable] } { dbRequest [list AddColumnNonWeb $shortCol $category $maxScore] |