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 -N -r1.7 -r1.8
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	28 Jul 2005 13:42:54 -0000	1.7
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	6 Sep 2005 16:45:18 -0000	1.8
@@ -366,34 +366,6 @@
 	-required_p "f" \
 	-section_heading ""
 
-    set attribute_id [attribute::new \
-			  -object_type "person" \
-			  -attribute_name "personnotes" \
-			  -datatype "text" \
-			  -pretty_name "Notes About Person" \
-			  -pretty_plural "Notes About Person" \
-			  -table_name "" \
-			  -column_name "" \
-			  -default_value "" \
-			  -min_n_values "1" \
-			  -max_n_values "1" \
-			  -sort_order "1" \
-			  -storage "generic" \
-			  -static_p "f" \
-			  -if_does_not_exist]
-
-    ams::attribute::new \
-	-attribute_id $attribute_id \
-	-widget "textarea" \
-	-dynamic_p "t"
-
-    ams::list::attribute::map \
-	-list_id $list_id \
-	-attribute_id $attribute_id \
-	-sort_order "100" \
-	-required_p "f" \
-	-section_heading ""
-
     # ORGA - REG
 
     set list_id [ams::list::get_list_id \
@@ -989,34 +961,6 @@
 	-required_p "f" \
 	-section_heading ""
 
-    set attribute_id [attribute::new \
-			  -object_type "person" \
-			  -attribute_name "collaboration_notes" \
-			  -datatype "text" \
-			  -pretty_name "Notes on Collboration" \
-			  -pretty_plural "Notes on Collboration" \
-			  -table_name "" \
-			  -column_name "" \
-			  -default_value "" \
-			  -min_n_values "1" \
-			  -max_n_values "1" \
-			  -sort_order "1" \
-			  -storage "generic" \
-			  -static_p "f" \
-			  -if_does_not_exist]
-
-    ams::attribute::new \
-	-attribute_id $attribute_id \
-	-widget "textarea" \
-	-dynamic_p "t"
-
-    ams::list::attribute::map \
-	-list_id $list_id \
-	-attribute_id $attribute_id \
-	-sort_order "100" \
-	-required_p "f" \
-	-section_heading ""
-
     # Register Relationships
 
     rel_types::create_role -role "parent_company" -pretty_name "Parent Company" -pretty_plural "Parent Companies"