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 -N -r1.7 -r1.8
--- openacs-4/packages/ecommerce/www/admin/cat/category.tcl	24 Sep 2008 12:01:33 -0000	1.7
+++ openacs-4/packages/ecommerce/www/admin/cat/category.tcl	25 Sep 2008 12:34:57 -0000	1.8
@@ -35,18 +35,23 @@
 
 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]"
 
-set old_subcategory_id ""
-set old_sort_key ""
+set old_subcategory_id 0
+set old_sort_key 0
 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 { $old_subcategory_id > 0 } {  
+        append subcat_info_loop_html "<td> <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> </td><td> <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> </td></tr>\n"  
+    } 
     set old_subcategory_id $subcategory_id
     set old_sort_key $sort_key
-    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"
+    append subcat_info_loop_html "<tr><td> <a href=\"subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]\">$subcategory_name</a> </td>"
 }
+set sort_key [expr { $old_sort_key + ( $old_sort_key * 3 / $subcategory_counter ) } ]
+append subcat_info_loop_html "<td> <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> </td><td> &nbsp; </td></tr>\n"
 
-set subcat_add_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>."
+set subcat_add_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>."