Index: openacs-4/packages/categories/www/categories-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/www/categories-browse.tcl	7 May 2003 13:35:06 -0000	1.3
+++ openacs-4/packages/categories/www/categories-browse.tcl	19 May 2003 13:10:32 -0000	1.4
@@ -46,6 +46,7 @@
     }
     set tree_ids [db_list check_permissions_on_trees ""]
 }
+db_dml delete_tmp_category_trees ""
 
 template::multirow create trees tree_id tree_name category_id category_name indent selected_p
 template::util::list_to_lookup $category_ids category_selected
@@ -146,6 +147,7 @@
     # execute query to get the objects on current page
     set items [ad_table -Torderby $orderby get_categorized_objects "" $table_def]
 }
+db_dml delete_tmp_category_trees ""
 
 paginator get_display_info $p_name info $page
 set group [paginator get_group $p_name $page]