util_AnsiDatetoPrettyDate sql_dateWhat it does:
Converts 1998-09-05 to September 5, 1998Defined in: /web/philip/packages/acs-core/utilities-procs.tcl
Source code:
if ![regexp {(.*)-(.*)-(.*)$} $sql_date match year month day] { return "" } else { set allthemonths {January February March April May June July August September October November December} # we have to trim the leading zero because Tcl has such a # brain damaged model of numbers and decided that "09-1" # was "8.0" set trimmed_month [string trimleft $month 0] set pretty_month [lindex $allthemonths [expr $trimmed_month - 1]] set trimmed_day [string trimleft $day 0] return "$pretty_month $trimmed_day, $year" }