Index: openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl 9 Mar 2004 00:59:46 -0000 1.7
+++ openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl 20 Aug 2008 20:37:37 -0000 1.8
@@ -25,37 +25,15 @@
from ec_categories
where sort_key = :sort_key"]
-
if { $n_conflicts > 0 } {
ad_return_complaint 1 "
The page you came from appears to be out-of-date;
perhaps someone has changed the categories since you last reloaded the page.
Please go back to the previous page, push \"reload\" or \"refresh\" and try
- again."
+ again."
return
}
+set title "Add a New Category"
+set context [list [list index "Product Categorization"] $title]
-
-append page_html "[ad_admin_header "Add a New Category"]
-
-Add a New Category
-
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Product Categories"] "Add a New Category"]
-
-
-
-
-
-
-
-[ad_admin_footer]
-"
-
-
-doc_return 200 text/html $page_html
+set export_form_vars_html [export_form_vars prev_sort_key next_sort_key]