Index: openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	14 Jun 2005 09:39:19 -0000	1.4
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	17 Jun 2005 05:44:38 -0000	1.5
@@ -9,6 +9,11 @@
 
 namespace eval contacts::populate {}
 
+ad_proc -private -callback contacts::populate::organization::customer_attributes {
+    {-list_id:required}
+} {
+}
+
 ad_proc -public contacts::populate::crm {
     {-package_id ""}
 } {
@@ -1316,6 +1321,8 @@
 	-required_p "f" \
 	-section_heading ""
 
+    callback contacts::populate::organization::customer_attributes -list_id $list_id
+
     # Person - Customer
 
     set list_id [ams::list::new \