From ab477c86305847556f765fcb2055a745b767e456 Mon Sep 17 00:00:00 2001 From: "Eugeniy E. Mikhailov" Date: Wed, 25 Sep 2024 09:11:16 -0400 Subject: undo removal DB as an argument to proc --- importGrades2gradebook.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/importGrades2gradebook.tcl b/importGrades2gradebook.tcl index 977cf50..b67173b 100755 --- a/importGrades2gradebook.tcl +++ b/importGrades2gradebook.tcl @@ -519,7 +519,7 @@ proc pickCols2import { cols2import skipCreationCol categories2import db} { dbg "skipping column $col, it is in $skipCreationCol list" continue } - set colInfo [parseColName $col] + set colInfo [parseColName $col $db] set category [lindex $colInfo 1] if { $category ni $categories2import } { dbg [list skipping $col in $category, permitted categories: $categories2import] @@ -638,7 +638,7 @@ set cols2import [getColListFromAnyTable foreignDB export_table] set cols2import [ pickCols2import $cols2import $skipCreationCol $categories2import foreignDB] foreach col $cols2import { - set colInfo [parseColName $col] + set colInfo [parseColName $col foreignDB] set shortCol [lindex $colInfo 0] set category [lindex $colInfo 1] set maxScore [lindex $colInfo 2] -- cgit v1.2.3