Index: openacs-4/packages/ecommerce/www/admin/cat/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/index.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/admin/cat/index.tcl 9 Mar 2004 00:59:46 -0000 1.5 +++ openacs-4/packages/ecommerce/www/admin/cat/index.tcl 19 Aug 2008 23:23:54 -0000 1.6 @@ -6,49 +6,25 @@ ad_require_permission [ad_conn package_id] admin -set page_html "[ad_admin_header "Product Category Administration"] +set title "Product Categorization" +set context [list $title] -

Product Category Administration

- -[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] "Product Categories"] - -
- -

Current Categories

- -
- -" set old_category_id "" set old_sort_key "" set category_counter 0 - +set categories_loop_html "" db_foreach get_categories_loop "select category_id, sort_key, category_name from ec_categories order by sort_key" { incr category_counter - if { ![empty_string_p $old_category_id] } { - append page_html "" - } + append categories_loop_html "\n" + } set old_category_id $category_id set old_sort_key $sort_key - append page_html "\n" + append categories_loop_html "" } -if { $category_counter != 0 } { - append page_html " - " -} else { - append page_html "You haven't set up any categories. Add a category.\n" -} +if { $category_counter > 0 } { + append categories_loop_html "\n" +} -append page_html " -
  insert after    swap with next
( insert after | swap with next )
$category_counter. $category_name
$category_counter. $category_name   insert after
( insert after )
-
- -[ad_admin_footer] -" - - -doc_return 200 text/html $page_html -