Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	4 Mar 2004 14:52:49 -0000	1.43
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	8 Mar 2004 14:07:12 -0000	1.44
@@ -153,13 +153,15 @@
 ad_proc -public person::new {
     {-first_names:required}
     {-last_name:required}
+    {-email {}}
 } {
     create a new person
 } {
    
     set extra_vars [ns_set create]
     ns_set put $extra_vars first_names $first_names
     ns_set put $extra_vars last_name $last_name
+    ns_set put $extra_vars email $email
 
     set object_type "person"
     return [package_instantiate_object -extra_vars $extra_vars $object_type]