address_book_record_display selection { contact_info_only "f" }What it does:
Displays address in a plain text manner. Wrap the output in address_book_display_as_html for display on web site.Defined in: /web/philip/tcl/address-book-defs.tcl
Source code:
set_variables_after_query set to_return "$first_names $last_name" foreach column [list email email2] { if { [string compare [set $column] ""] != 0 } { append to_return "<br><a href=mailto:[set $column]>[set $column]</a>" } } foreach column [list line1 line2] { if { [string compare [set $column] ""] != 0 } { append to_return "<br>[set $column]" } } if { [string compare $city ""] != 0 } { append to_return "<br>$city, $usps_abbrev $zip_code" } if { [string compare $country ""] != 0 && [string compare $country "USA"] != 0 } { append to_return "<br>$country" } if { [string compare $phone_home ""] != 0 } { append to_return "<br>$phone_home (home)" } if { [string compare $phone_work ""] != 0 } { append to_return "<br>$phone_work (work)" } if { [string compare $phone_cell ""] != 0 } { append to_return "<br>$phone_cell (cell)" } if { [string compare $phone_other ""] != 0 } { append to_return "<br>$phone_other (other)" } if { [string compare $birthmonth ""] != 0 && $contact_info_only == "f" } { append to_return "<br>birthday $birthmonth/$birthday" } if { [string compare $birthyear ""] != 0 && $contact_info_only == "f" } { append to_return "/$birthyear" } if { [string compare $notes ""] != 0 && $contact_info_only == "f" } { append to_return "<br>\[$notes\]" } return $to_return