Index: openacs-4/packages/expenses/expenses.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/expenses/expenses.info,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/expenses/expenses.info	24 Jun 2005 09:17:04 -0000	1.5
+++ openacs-4/packages/expenses/expenses.info	6 Aug 2005 13:15:04 -0000	1.6
@@ -15,7 +15,7 @@
 	<requires url="expense-tracking" version="0.1a"/>
         <requires url="dotlrn" version="2.1.2d1"/>
         <callbacks>
-	   <callback type="after-mount"  proc="expenses::package_mount"/>
+	   <callback type="after-install"  proc="expenses::after_install"/>
         </callbacks>
         <parameters>
         <!-- No version parameters -->
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.6 -r1.7
--- openacs-4/packages/expenses/tcl/apm-callback-procs.tcl	4 Aug 2005 06:51:55 -0000	1.6
+++ openacs-4/packages/expenses/tcl/apm-callback-procs.tcl	6 Aug 2005 13:15:04 -0000	1.7
@@ -9,13 +9,12 @@
 
 namespace eval expenses { }
 
-ad_proc -private expenses::package_mount {
-    -package_id
-    -node_id
+ad_proc -private expenses::after_install {
 } {
     create the categories for expenses
     
 } {
+    set package_id [expenses::get_package_id]
     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"]