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

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