Index: openacs-4/packages/ecommerce/www/admin/email-templates/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/email-templates/add.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/email-templates/add.tcl	9 Mar 2004 00:59:48 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/email-templates/add.tcl	18 Aug 2008 21:31:25 -0000	1.4
@@ -1,5 +1,4 @@
 # add.tcl
-
 ad_page_contract {
     @author
     @creation-date
@@ -10,48 +9,7 @@
 
 ad_require_permission [ad_conn package_id] admin
 
-append doc_body "[ad_admin_header "Add Email Template"]
-<h2>Add Email Template</h2>
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Email Templates"] "New Template"]
-<hr>
-<p>
-Please note: Email templates are designed be edited by a content writer (e.g. a customer service rep), but a programmer will have to schedule the sending of this email and program in the variable substitution.
+set title "Add Email Template"
+set context [list [list index "Email Templates"] $title]
 
-<form method=post action=\"add-2\">
-
-<h3>For informational purposes</h3>
-
-<blockquote>
-<table noborder>
-<tr><td>Title</td><td><INPUT type=text name=title size=30></td></tr>
-<tr><td>Variables</td><td><input type=text name=variables size=30> <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></textarea></td></tr>
-</table>
-</blockquote>
-
-<h3>Actually used when sending email</h3>
-
-<blockquote>
-<table noborder>
-<tr><td>Subject Line</td><td><input type=text name=subject size=30></td></tr>
-<tr><td valign=top>Message</td><td><TEXTAREA wrap=hard name=message COLS=50 ROWS=15></TEXTAREA></td></tr>
-"
-
-
-
-append doc_body "<tr><td valign=top>Issue Type*</td><td valign=top>[ec_issue_type_widget]</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.
-
-[ad_admin_footer]
-"
-
-doc_return  200 text/html $doc_body
+set issue_type_widget_html [ec_issue_type_widget]