press_template_list

one of the documented procedures in this installation of the ACS
Usage:
press_template_list   db
What it does:
returns a definition list of available templates
Defined in: /web/philip/tcl/press-defs.tcl

Source code:



    set selection [ns_db select $db "
    select template_name,
           template_adp
    from   press_templates
    order  by template_name"]

    set avail_count 0
    set avail_list ""
    while {[ns_db getrow $db $selection]} {
	set_variables_after_query
	incr avail_count
	append avail_list "
	<dt>$template_name</dt>
	<dd>[press_coverage_preview $template_adp]</dd>
	</tr>"
    }
    
    if {$avail_count == 0} {
	set avail_template_list "
	There are no press coverage templates in the system."
    } else {
	set avail_template_list "
	<dl>$avail_list</dl>"
    }

    return $avail_template_list


philg@mit.edu