one of the documented procedures in this installation of the ACS
portal_adp_parse   adp   db
What it does:
returns a parsed adp string - done here so variables in the adp don't conflict with variables in the main page (except for $db, which we make sure is always a valid connection from the main pool). Also modifies any s or s in an embedded table (adp) to have a standard font tag after it so that this text also will conform to the portal standard font.
Defined in: /web/philip/tcl/portals-defs.tcl

Source code:


    regsub -nocase -all {(<td[^>]*>)} [ns_adp_parse -string $adp] {\1 font_tag} shown_adp
    regsub -nocase -all {(<th[^>]*>)} $shown_adp {\1 font_tag} shown_adp
    regsub -nocase -all {font_tag} $shown_adp $font_tag shown_adp

    return "$shown_adp"