get_content_tags

one of the documented procedures in this installation of the ACS
Usage:
get_content_tags
What it does:
Load the naughty words into a shared tcl array entitled tag_array
Defined in: /web/philip/tcl/ad-content-tagging.tcl

Source code:



    set db [ns_db gethandle subquery]
    ns_share tag_array
    set sql "select word, tag from content_tags order by tag desc"
    set selection [ns_db select $db $sql]
    while {[ns_db getrow $db $selection]} {
	set_variables_after_query
	set tag_array($word) $tag
    }
    ns_db releasehandle $db


philg@mit.edu