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