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] -
-- -[ad_admin_footer] -" - - -doc_return 200 text/html $page_html --" 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 "
-insert after swap with next " - } + append categories_loop_html "( insert after | swap with next ) \n" + } set old_category_id $category_id set old_sort_key $sort_key - append page_html "$category_counter. $category_name \n" + append categories_loop_html "- " -} else { - append page_html "You haven't set up any categories. Add a category.\n" -} +if { $category_counter > 0 } { + append categories_loop_html " $category_counter. $category_name " } -if { $category_counter != 0 } { - append page_html "insert after ( insert after ) \n" +} -append page_html " -