Posted to tcl by steveb at Tue Sep 25 16:50:42 GMT 2018view pretty

catch {
                catch {set data2 [split [dstring [mk::get $cursor2 results]]\
                  ","]}
                if {[string equal $data2 ""]} {set data2 $blankdata2}
                set percent3 "<font color=\"blue\"><b>[lindex $data2\
                  1]</b></font>"
                set data2 [lreplace $data2 1 1 $percent3]
            }
            puts stderr "D data2 $data2"