Index: openacs-4/packages/contacts/tcl/contacts-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-install-procs.tcl,v diff -u -r1.12 -r1.13 --- openacs-4/packages/contacts/tcl/contacts-install-procs.tcl 2 Aug 2005 20:42:23 -0000 1.12 +++ openacs-4/packages/contacts/tcl/contacts-install-procs.tcl 10 Sep 2005 05:46:23 -0000 1.13 @@ -249,3 +249,12 @@ (:group_id,:default_p,:package_id)} } +ad_proc -public ::install::xml::action::contacts_pop_crm { + node +} { + Procedure to register the populate crm for the install.xml +} { + set url [apm_required_attribute_value $node url] + array set sn_array [site_node::get -url $url] + contacts::populate::crm -package_id $sn_array(object_id) +}