From 7f62c74fb253555e8072654521ee8af4668c8924 Mon Sep 17 00:00:00 2001 From: "Eugeniy E. Mikhailov" Date: Wed, 12 May 2021 23:38:22 -0400 Subject: trimCol alias with better name --- blackboard2gradebook.tcl | 7 ++++--- 1 file 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] -- cgit v1.2.3