Index: openacs-4/packages/ecommerce/www/admin/products/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/products/delete.tcl	9 Mar 2004 00:59:51 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/products/delete.tcl	14 Aug 2008 21:53:58 -0000	1.4
@@ -14,25 +14,7 @@
 
 set product_name [ec_product_name $product_id]
 
-doc_body_append "[ad_admin_header "Confirm Deletion of $product_name"]
+set title "Confirm Deletion of $product_name"
+set context [list [list index Products] $title]
 
-<h2>Confirm Deletion</h2>
-
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Products"] [list "one.tcl?[export_url_vars product_id]" "One"] "Confirm Deletion"]
-
-<hr>
-
-Are you sure you want to delete $product_name?  Note that the system
-will not let you delete a product if anyone has already ordered it
-(you might want to mark the product \"discontinued\" instead).
-
-<p>
-<form method=post action=delete-2>
-[export_form_vars product_id]
-<center>
-<input type=submit value=\"Yes\">
-</center>
-</form>
-
-[ad_admin_footer]
-"
+set export_vars_html [export_form_vars product_id]