get_content_tags

get_content_tags

Load the naughty words into a shared tcl array entitled tag_array

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