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.9 -r1.10
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	10 Sep 2005 05:41:04 -0000	1.9
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	10 Sep 2005 13:39:54 -0000	1.10
@@ -45,6 +45,8 @@
 #	set supplier_id [group::new -group_name "Supplier" "group"]
     set customers_id [group::new \
 			  -group_name "Customers" "group"]
+    set leads_id [group::new \
+			  -group_name "Leads" "group"]
 
     contact::group::map -group_id $customers_id -package_id $contacts_package_id
 
@@ -621,6 +623,14 @@
 		     -description "" \
 		     -description_mime_type ""]
 
+    set leads_list_id [ams::list::new \
+		     -package_key "contacts" \
+		     -object_type "organization" \
+		     -list_name "${contacts_package_id}__${leads_id}" \
+		     -pretty_name "Organization - Leads" \
+		     -description "" \
+		     -description_mime_type ""]
+
     set attribute_id [attribute::new \
 			  -object_type "organization" \
 			  -attribute_name "clienttype" \
@@ -705,10 +715,18 @@
 		     -package_key "contacts" \
 		     -object_type "person" \
 		     -list_name "${contacts_package_id}__${customers_id}" \
-		     -pretty_name "1247__1264" \
+		     -pretty_name "Person - Customer" \
 		     -description "" \
 		     -description_mime_type ""]
 
+    set leads_list_id [ams::list::new \
+		     -package_key "contacts" \
+		     -object_type "person" \
+		     -list_name "${contacts_package_id}__${leads_id}" \
+		     -pretty_name "Person - Leads" \
+		     -description "" \
+		     -description_mime_type ""]
+
     set attribute_id [attribute::new \
 			  -object_type "person" \
 			  -attribute_name "department" \