diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2024-03-17 21:30:08 -0400 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2024-03-17 21:30:08 -0400 |
| commit | 42c0f57ed3163ed4284732b4cdce4393dfc1822b (patch) | |
| tree | 9b45ad183af8501f6198b3d55467279701bdbf24 /importGrades2gradebook.tcl | |
| parent | acaf50cab1deb3a22a19b6acc3a2746f21e04c56 (diff) | |
| download | GradeBook-42c0f57ed3163ed4284732b4cdce4393dfc1822b.tar.gz GradeBook-42c0f57ed3163ed4284732b4cdce4393dfc1822b.zip | |
bug fix: wrong call to function which did not need a DB argument
Diffstat (limited to 'importGrades2gradebook.tcl')
| -rwxr-xr-x | importGrades2gradebook.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/importGrades2gradebook.tcl b/importGrades2gradebook.tcl index f343e3d..ca9daeb 100755 --- a/importGrades2gradebook.tcl +++ b/importGrades2gradebook.tcl @@ -518,7 +518,7 @@ proc pickCols2import { cols2import skipCreationCol categories2import db} { dbg "skipping column $col, it is in $skipCreationCol list" continue } - set colInfo [parseColName $col $db] + set colInfo [parseColName $col] set category [lindex $colInfo 1] if { $category ni $categories2import } { dbg [list skipping $col in $category, permitted categories: $categories2import] @@ -637,7 +637,7 @@ set cols2import [getColListFromAnyTable foreignDB export_table] set cols2import [ pickCols2import $cols2import $skipCreationCol $categories2import foreignDB] foreach col $cols2import { - set colInfo [parseColName $col foreignDB] + set colInfo [parseColName $col] set shortCol [lindex $colInfo 0] set category [lindex $colInfo 1] set maxScore [lindex $colInfo 2] |