address_book_record_display

one of the documented procedures in this installation of the ACS
Usage:
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


philg@mit.edu