util_AnsiDatetoPrettyDate

one of the documented procedures in this installation of the ACS
Usage:
util_AnsiDatetoPrettyDate   sql_date
What it does:
Converts 1998-09-05 to September 5, 1998
Defined 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"
    }


philg@mit.edu