Index: openacs-4/packages/expenses/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/expenses/tcl/apm-callback-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/expenses/tcl/apm-callback-procs.tcl	24 Jun 2005 04:24:52 -0000	1.5
+++ openacs-4/packages/expenses/tcl/apm-callback-procs.tcl	4 Aug 2005 06:51:55 -0000	1.6
@@ -13,9 +13,11 @@
     -package_id
     -node_id
 } {
-    create the category tree for expenses
+    create the categories for expenses
     
 } {
     set tree_id [category_tree::add -name "Expense Codes"]
     category_tree::map -tree_id $tree_id -object_id $package_id
+    set tree_id [category_tree::add -name "Expense Types"]
+    category_tree::map -tree_id $tree_id -object_id $package_id
 }