Index: openacs-4/packages/ecommerce/www/admin/cat/category.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ecommerce/www/admin/cat/category.tcl	9 Mar 2004 00:59:46 -0000	1.5
+++ openacs-4/packages/ecommerce/www/admin/cat/category.tcl	19 Aug 2008 23:23:54 -0000	1.6
@@ -17,34 +17,13 @@
 
 ad_require_permission [ad_conn package_id] admin
 
-set page_html "[ad_admin_header "Category: $category_name"]
+set title "Category: ${category_name}"
+set context [list [list index "Product Categorization"] $title]
 
-<h2>Category: $category_name</h2>
+set export_form_vars_html [export_form_vars category_id]
+set export_url_vars_cat_id [export_url_vars category_id]
+set export_url_vars_cat_id_name [export_url_vars category_id category_name] 
 
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories &amp; Subcategories"] "One Category"]
-
-<hr>
-
-<ul>
-
-<form method=post action=category-edit>
-[export_form_vars category_id]
-<li>Change category name to:
-<input type=text name=category_name size=30 value=\"[ad_quotehtml $category_name]\">
-<input type=submit value=\"Change\">
-</form>
-
-<p>
-
-<li><a href=\"../products/list?[export_url_vars category_id]\">View all products in this category</a>
-
-<p>
-
-<li><a href=\"category-delete?[export_url_vars category_id category_name]\">Delete this category</a>
-
-<p>
-"
-
 # Set audit variables
 # audit_name, audit_id, audit_id_column, return_url, audit_tables, main_tables
 set audit_name "$category_name"
@@ -54,51 +33,21 @@
 set audit_tables [list ec_categories_audit ec_subcategories_audit ec_category_product_map_audit]
 set main_tables [list ec_categories ec_subcategories ec_category_product_map]
 
-append page_html "<li><a href=\"[ec_url_concat [ec_url] /admin]/audit?[export_url_vars audit_name audit_id audit_id_column return_url audit_tables main_tables]\">Audit Trail</a>
+set audit_url_html "[ec_url_concat [ec_url] /admin]/audit?[export_url_vars audit_name audit_id audit_id_column return_url audit_tables main_tables]"
 
-</ul>
-
-<p>
-
-<h3>Current Subcategories of $category_name</h3>
-
-<blockquote>
-<table>
-"
 set old_subcategory_id ""
 set old_sort_key ""
 set subcategory_counter 0
-
-
-
+set subcat_info_loop_html ""
 db_foreach get_subcat_info_loop "select subcategory_id, sort_key, subcategory_name from ec_subcategories where category_id=:category_id order by sort_key" {
 
-
     incr subcategory_counter
-
-    if { ![empty_string_p $old_subcategory_id] } {
-	append page_html "<td> &nbsp;&nbsp;<font face=\"MS Sans Serif, arial,helvetica\"  size=1><a href=\"subcategory-add-0?[export_url_vars category_id category_name]&prev_sort_key=$old_sort_key&next_sort_key=$sort_key\">insert after</a> &nbsp;&nbsp; <a href=\"subcategory-swap?[export_url_vars category_id category_name]&subcategory_id=$old_subcategory_id&next_subcategory_id=$subcategory_id&sort_key=$old_sort_key&next_sort_key=$sort_key\">swap with next</a></font></td></tr>"
-    }
     set old_subcategory_id $subcategory_id
     set old_sort_key $sort_key
-    append page_html "<tr><td>$subcategory_counter. <a href=\"subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]\">$subcategory_name</a></td>\n"
+    append subcat_info_loop_html "<tr><td>$subcategory_counter. <a href=\"subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]\">$subcategory_name</a></td></tr>\n"
 }
 
-if { $subcategory_counter != 0 } {
-    append page_html "<td> &nbsp;&nbsp;<font face=\"MS Sans Serif, arial,helvetica\"  size=1><a href=\"subcategory-add-0?[export_url_vars category_id category_name]&prev_sort_key=$old_sort_key&next_sort_key=[expr $old_sort_key + 2]\">insert after</a></font></td></tr>
-    "
-} else {
-    append page_html "You haven't set up any subcategories.  <a href=\"subcategory-add-0?[export_url_vars category_id category_name]&prev_sort_key=1&next_sort_key=2\">Add a subcategory.</a>\n"
+if { $subcategory_counter == 0 } {
+    append subcat_info_loop_html "  <a href=\"subcategory-add-0?[export_url_vars category_id category_name]&prev_sort_key=1&next_sort_key=2\">Add a subcategory.</a>\n"
 }
 
-append page_html "
-</table>
-</blockquote>
-
-[ad_admin_footer]
-"
-
-
-doc_return  200 text/html $page_html
-
-