# Procedure explain-check-ok
proc explain-check-ok {target zz category finish} {
- global profile settingsChanged
+ global profile settingsChanged currentDb
puts ""
puts ""
[lindex [lindex [lindex [lindex [lindex $trec 10] 1] 1] 1] 1]
set settingsChanged 1
+ get-attributeDetails $target $currentDb
eval $finish [list $target]
}
}
if {$refresh} {
explain-refresh $target $finish
-# get-attributeDetails $target $base
} else {
eval $finish [list $target]
}