Index: openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl	9 Mar 2004 00:59:46 -0000	1.7
+++ openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl	20 Aug 2008 20:37:38 -0000	1.8
@@ -40,32 +40,11 @@
     ad_return_complaint 1 "<li>The page you came from appears to be out-of-date;
     perhaps someone has changed the subsubcategories since you last reloaded the page.
     Please go back to the previous page, push \"reload\" or \"refresh\" and try
-    again."
+    again.</li>"
     return
 }
 
+set title "Add a New Subsubcategory"
+set context [list [list index "Product Categorization"] $title]
 
-
-set page_html "[ad_admin_header "Add a New Subsubcategory"]
-
-<h2>Add a New Subsubcategory</h2>
-
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Product Categories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]" $subcategory_name] "Add a New Subsubcategory"]
-
-<hr>
-
-<ul>
-
-<form method=post action=subsubcategory-add>
-[export_form_vars category_id category_name subcategory_id subcategory_name prev_sort_key next_sort_key]
-Name: <input type=text name=subsubcategory_name size=30>
-<input type=submit value=\"Add\">
-</form>
-
-</ul>
-
-[ad_admin_footer]
-"
-
-
-doc_return  200 text/html $page_html
+set export_form_vars_html [export_form_vars category_id category_name subcategory_id subcategory_name prev_sort_key next_sort_key]