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