Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl	9 Mar 2004 00:59:47 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl	20 Aug 2008 20:34:33 -0000	1.4
@@ -1,5 +1,4 @@
 # canned-response-edit.tcl
-
 ad_page_contract {
     @param response_id
     @author
@@ -16,30 +15,14 @@
 from ec_canned_responses
 where response_id = :response_id"
 
+set title  "Edit A Prepared Response"
+set context [list [list index "Customer Service"] $title]
 
+set export_form_vars_html [export_form_vars response_id]
 
 
-doc_return  200 text/html "[ad_admin_header "Edit Canned Response"]
-<h2>Edit Canned Response</h2>
 
-[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "canned-responses.tcl" "Canned Responses"] "Edit Canned Response"]
 
-<hr>
 
-<form action=canned-response-edit-2 method=POST>
-[export_form_vars response_id]
-<table noborder>
-<tr><th>Description</th><td><input type=text size=60 name=one_line value=\"[ad_quotehtml $one_line]\"></tr>
-<tr><th>Text</th><td><textarea name=response_text rows=5 cols=70 wrap=soft>$response_text</textarea></tr>
-<tr><td align=center colspan=2><input type=submit value=Submit></tr>
-</table>
-</form>
 
-[ad_admin_footer]
-"
 
-
-
-
-
-