Index: openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl	9 Mar 2004 00:59:48 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl	18 Aug 2008 21:31:25 -0000	1.4
@@ -12,49 +12,19 @@
 
 ad_require_permission [ad_conn package_id] admin
 
-append doc_body "[ad_admin_header "Edit Email Template"]
-<h2>Edit Email Template</h2>
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Email Templates"] "Edit Template"]
-<hr>
-<form method=post action=\"edit-2\">
-[export_form_vars email_template_id]
-"
+set title "Edit Email Template"
+set context [list [list index "Email Templates"] $title]
 
+set export_form_vars_html [export_form_vars email_template_id]
 
 if { ![db_0or1row unused "select * from ec_email_templates where email_template_id=:email_template_id"] } {
     ad_return_complaint 1 "Invalid email_template_id passed in"
 }
 
 db_release_unused_handles
 
-append doc_body "<h3>For informational purposes</h3>
-<blockquote>
-<table noborder>
-<tr><td>Title</td><td><INPUT type=text name=title size=30 value=\"[ad_quotehtml $title]\"></td></tr>
-<tr><td>Variables</td><td><input type=text name=variables size=30 value=\"[ad_quotehtml $variables]\"> <a href=\"variables\">Note on variables</a></td></tr>
-<tr><td>When Sent</td><td><textarea wrap=hard name=when_sent cols=50 rows=3>$when_sent</textarea></td></tr>
-</table>
-</blockquote>
+set issue_type_widget_html [ec_issue_type_widget $issue_type_list]
 
-<h3>Actually used when sending email</h3>
-
-<blockquote>
-<table noborder>
-<tr><td>Template ID</td><td>$email_template_id</td></tr>
-<tr><td>Subject Line</td><td><input type=text name=subject size=30 value=\"[ad_quotehtml $subject]\"></td></tr>
-<tr><td valign=top>Message</td><td><TEXTAREA wrap=hard name=message COLS=50 ROWS=15>$message</TEXTAREA></td></tr>
-<tr><td valign=top>Issue Type*</td><td valign=top>[ec_issue_type_widget $issue_type_list]</td></tr>
-</table>
-</blockquote>
-<p>
-<center>
-<input type=submit value=\"Continue\">
-</center>
-</form>
-
-* Note: A customer service issue is created whenever an email is sent. The issue is automatically closed unless the customer replies to the issue, in which case it is reopened.
-"
-
 set table_names_and_id_column [list ec_email_templates ec_email_templates_audit email_template_id]
 
 # Set audit variables
@@ -66,11 +36,5 @@
 set audit_name "Email Template: $title"
 set audit_id $email_template_id
 
-append doc_body "<p>
-\[<a href=\"[ec_url_concat [ec_url] /admin]/audit?[export_url_vars audit_name audit_id audit_id_column return_url audit_tables main_tables]\">Audit Trail</a>\]
+append doc_body "[ec_url_concat [ec_url] /admin]/audit?[export_url_vars audit_name audit_id audit_id_column return_url audit_tables main_tables]"
 
-[ad_admin_footer]
-"
-
-
-doc_return  200 text/html $doc_body