Index: openacs-4/packages/ecommerce/www/admin/email-templates/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/email-templates/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/email-templates/index.tcl	9 Mar 2004 00:59:48 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/email-templates/index.tcl	18 Aug 2008 21:31:25 -0000	1.4
@@ -12,31 +12,16 @@
 
 set table_names_and_id_column [list ec_email_templates ec_email_templates_audit email_template_id]
 
-append doc_body "[ad_admin_header "Email Templates"]
-<h2>Email Templates</h2>
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] "Email Templates"]
-<hr><p>
-<ul>
-<li><A href=\"add\">New Email Template</a>
-<p>
-<li><a href=\"[ec_url_concat [ec_url] /admin]/audit-tables?[export_url_vars table_names_and_id_column]\">Audit All Email Templates</a>
-</ul>
-<p>
-<b>Current Email Templates:</b>
-<ul>
-"
+set title "Email Templates"
+set context [list $title]
 
+set audit_url_html "[ec_url_concat [ec_url] /admin]/audit-tables?[export_url_vars table_names_and_id_column]"
 
 set sql "select title, email_template_id from ec_email_templates order by title"
-
+set email_templates_html ""
 db_foreach get_email_templates $sql {
-    
-    append doc_body "<li> <a href=\"edit?email_template_id=$email_template_id\">$title</a> \n"
+    append email_templates_html "<li> <a href=\"edit?email_template_id=$email_template_id\">$title</a></li>\n"
 }
 
 db_release_unused_handles
 
-append doc_body "</ul>
-[ad_admin_footer]"
-
-doc_return  200 text/html $doc_body