im_format_address street_1 street_2 city state zipWhat it does:
Generates a two line address with appropriate punctuation.Defined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set items [list] set street "" if { ![empty_string_p $street_1] } { append street $street_1 } if { ![empty_string_p $street_2] } { if { ![empty_string_p $street] } { append street "<br>\n" } append street $street_2 } if { ![empty_string_p $street] } { lappend items $street } set line_2 "" if { ![empty_string_p $state] } { set line_2 $state } if { ![empty_string_p $zip] } { append line_2 " $zip" } if { ![empty_string_p $city] } { if { [empty_string_p $line_2] } { set line_2 $city } else { set line_2 "$city, $line_2" } } if { ![empty_string_p $line_2] } { lappend items $line_2 } if { [llength $items] == 0 } { return "" } elseif { [llength $items] == 1 } { set value [lindex $items 0] } else { set value [join $items "<br>"] } return $value