Index: openacs-4/packages/expenses/www/admin/export-expenses.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/expenses/www/admin/export-expenses.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/expenses/www/admin/export-expenses.tcl	26 Jul 2005 02:40:11 -0000	1.5
+++ openacs-4/packages/expenses/www/admin/export-expenses.tcl	4 Aug 2005 07:10:08 -0000	1.6
@@ -49,6 +49,9 @@
 	expense_codes {
 		label "Expense Codes"
 	}
+	expense_types {
+		label "Expense Types"
+	}
     } 
 
 # build the multirow
@@ -71,8 +74,9 @@
 #}
 
 
-db_multirow -extend {expense_codes} expenses get_expenses $query {
+db_multirow -extend {expense_codes expense_types} expenses get_expenses $query {
 	set expense_codes [expenses::list_expense_codes -id $exp_id]
+	set expense_types [expenses::list_expense_types -id $exp_id]
 }
 
 if { $mark == 1 } {