Posted to tcl by steveb at Tue Sep 25 16:50:42 GMT 2018view raw
- 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"