press_template_list dbWhat it does:
returns a definition list of available templatesDefined 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