bowdlerization_level

one of the documented procedures in this installation of the ACS
Usage:
bowdlerization_level
What it does:
Returns bowdlerization mask for site, if ANDed with a word's mask and result is non-zero, replace with something innocuous
Defined in: /web/philip/tcl/ad-content-tagging.tcl

Source code: 


    set bowdlerization_level 0
    if {[ad_parameter XBowdlerizeP content-tagging]} {
	incr bowdlerization_level 4
    }
    if {[ad_parameter RBowdlerizeP content-tagging]} {
	incr bowdlerization_level 2
    }
    if {[ad_parameter PGBowdlerizeP content-tagging]} {
	incr bowdlerization_level 1
    }
    return $bowdlerization_level
philg@mit.edu