One Style

defined in /web/philip/tcl/ad-style.tcl, part of the style module of the ArsDigita Community System

This page shows the available information on one style defined using ad_register_styletag.

footer

Standard ArsDigita footer.

Source code:


    global sidegraphic_displayed_p
    set signatory $string
    if [empty_string_p $signatory] {
	set signatory [ad_system_owner]
    } 
    if { [info exists sidegraphic_displayed_p] && $sidegraphic_displayed_p } {
	# we put in a BR CLEAR=RIGHT so that the signature will clear any side graphic
	# from the ad-sidegraphic.tcl package
	set extra_br "<br clear=right>"
    } else {
	set extra_br ""
    }
    return "
$extra_br
<hr>
<a href=\"mailto:$signatory\"><address>$signatory</address></a>
"

philg@mit.edu