Index: openacs-4/packages/contacts/tcl/contacts-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/tcl/contacts-init.tcl	13 Jan 2005 13:57:02 -0000	1.2
+++ openacs-4/packages/contacts/tcl/contacts-init.tcl	18 May 2005 16:45:49 -0000	1.3
@@ -7,5 +7,88 @@
     @cvs-id $Id$
 }
 
-# set up contacts
-contacts::view::init
+
+set attribute_id [attribute::new \
+              -object_type "person" \
+              -attribute_name "first_names" \
+              -datatype "string" \
+              -pretty_name "First Names" \
+              -pretty_plural "First Names" \
+              -table_name "" \
+              -column_name "" \
+              -default_value "" \
+              -min_n_values "0" \
+              -max_n_values "1" \
+              -sort_order "1" \
+              -storage "type_specific" \
+              -static_p "f" \
+                      -if_does_not_exist]
+
+ams::attribute::new \
+              -attribute_id $attribute_id \
+              -widget "textbox" \
+              -dynamic_p "f"
+
+set attribute_id [attribute::new \
+              -object_type "person" \
+              -attribute_name "last_name" \
+              -datatype "string" \
+              -pretty_name "Last Name" \
+              -pretty_plural "Last Names" \
+              -table_name "" \
+              -column_name "" \
+              -default_value "" \
+              -min_n_values "0" \
+              -max_n_values "1" \
+              -sort_order "1" \
+              -storage "type_specific" \
+              -static_p "f" \
+                      -if_does_not_exist]
+
+ams::attribute::new \
+              -attribute_id $attribute_id \
+              -widget "textbox" \
+              -dynamic_p "f"
+
+set attribute_id [attribute::new \
+              -object_type "party" \
+              -attribute_name "email" \
+              -datatype "string" \
+              -pretty_name "Email Address" \
+              -pretty_plural "Email Addresses" \
+              -table_name "" \
+              -column_name "" \
+              -default_value "" \
+              -min_n_values "0" \
+              -max_n_values "1" \
+              -sort_order "1" \
+              -storage "type_specific" \
+              -static_p "f" \
+                      -if_does_not_exist]
+
+ams::attribute::new \
+              -attribute_id $attribute_id \
+              -widget "email" \
+              -dynamic_p "f"
+
+set attribute_id [attribute::new \
+              -object_type "organization" \
+              -attribute_name "name" \
+              -datatype "string" \
+              -pretty_name "Name" \
+              -pretty_plural "Names" \
+              -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 "textbox" \
+              -dynamic_p "t"
+