Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-delete.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-delete.adp	25 Aug 2008 13:32:01 -0000	1.1
@@ -0,0 +1,14 @@
+<master>
+  <property name="doc(title)">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+<h2>@title@</h2>
+
+<p>Are you sure you want to delete this prepared response?</p>
+
+<h3>@one_line@</h3>
+@response_html;noquote@
+
+
+<center>
+<p> <a href="canned-response-delete-2?response_id=@response_id@">Yes, get rid of it</a>.</p>
+</center>
Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-delete.tcl	10 Sep 2002 22:22:40 -0000	1.2
+++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-delete.tcl	25 Aug 2008 13:32:01 -0000	1.3
@@ -17,25 +17,7 @@
 from ec_canned_responses
 where response_id = :response_id"
 
+set title  "Confirm Delete"
+set context [list [list index "Customer Service"] $title]
 
-
-
-doc_return  200 text/html "[ad_admin_header "Confirm Delete"]
-
-<h2>Confirm Delete</h2>
-
-<hr>
-
-Are you sure you want to delete this canned response?
-
-<h3>$one_line</h3>
-[ec_display_as_html $response_text]
-
-<p>
-
-<center>
-<a href=\"canned-response-delete-2?response_id=$response_id\">Yes, get rid of it</a>
-</center>
-
-[ad_admin_footer]
-"
+set response_html [ec_display_as_html $response_text]