portal_adp_parse adp dbWhat 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 anys 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:
portal_display_info 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"
philg@mit.edu