Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	23 Jan 2003 11:24:21 -0000	1.25
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	23 Jan 2003 17:55:24 -0000	1.26
@@ -485,6 +485,8 @@
 	apm_package_install_dependencies -callback $callback $version(provides) $version(requires) $version_id
 	apm_package_install_owners -callback $callback $version(owners) $version_id
 	apm_package_install_files -callback $callback $version(files) $version_id
+        apm_package_install_callbacks -callback $callback $version(callbacks) $version_id
+
 	apm_callback_and_log $callback "<p>Installed $version(package-name), version $version(name).<p>"
     } {
 	apm_callback_and_log $callback "<p>Failed to install $version(package-name), version $version(name).  The following error was generated:
@@ -512,9 +514,13 @@
 	    <pre><blockquote>[ad_quotehtml $errmsg]</blockquote></pre>"
 	} else {
 	    apm_callback_and_log $callback "[string totitle $package_key] instantiated as $package_key.<p>"
+
+            apm_invoke_callback_proc -version_id $version_id -type after-instantiate
 	}
     }
 
+    apm_invoke_callback_proc -version_id $version_id -type after-install
+
     return $version_id
 }
 
@@ -866,6 +872,25 @@
     }
 }
 
+ad_proc -private apm_package_install_callbacks {
+    {-callback apm_dummy_callback}
+    callback_list
+    version_id
+} {
+    Install the Tcl proc callbacks for the package version.
+
+    @author Peter Marklund
+} {
+    db_dml delete_all_callbacks {
+        delete from apm_package_callbacks
+        where version_id = :version_id
+    }
+
+    foreach {type proc} $callback_list {
+        apm_set_callback_proc -version_id $version_id -type $type $proc
+    }
+}
+
 ad_proc -private apm_package_install_queries {
     {-callback apm_dummy_callback}
     package_key