diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-12 23:38:22 -0400 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-12 23:38:22 -0400 |
| commit | 7f62c74fb253555e8072654521ee8af4668c8924 (patch) | |
| tree | 5cd30adc0c353413d8965ff050038a90924a0112 | |
| parent | a82807b9c6587b43e506f7cb857356f5e5f20020 (diff) | |
| download | GradeBook-7f62c74fb253555e8072654521ee8af4668c8924.tar.gz GradeBook-7f62c74fb253555e8072654521ee8af4668c8924.zip | |
trimCol alias with better name
| -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] |