naughty_loggable_naughtiness_mask

one of the documented procedures in this installation of the ACS
Usage:
naughty_loggable_naughtiness_mask
What it does:
Returns a mask suitable for ANDing with a content tag. If the result is non-zero, you've got loggable naughtiness.
Defined in: /web/philip/tcl/ad-content-tagging.tcl

Source code:


    set loggable_naughtiness 0
    if {[ad_parameter XLogP content-tagging]} {
	incr loggable_naughtiness 4
    }
    if {[ad_parameter RLogP content-tagging]} {
	incr loggable_naughtiness 2
    }
    if {[ad_parameter PGLogP content-tagging]} {
	incr loggable_naughtiness 1
    }
    return $loggable_naughtiness


philg@mit.edu