Index: openacs-4/packages/acs-subsite/www/admin/parties/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	18 Sep 2002 14:54:52 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	22 Sep 2003 20:16:41 -0000	1.4
@@ -12,6 +12,7 @@
     party_type:notnull
     { party_type_exact_p t }
     { party_id:naturalnum "" }
+    { party.email ""}
     { return_url "" }
     {add_to_group_id ""}
     {add_with_rel_type "membership_rel"}
@@ -184,7 +185,7 @@
 if { [template::form is_valid add_party] } {
 
     db_transaction {
-	party::new -form_id add_party -variable_prefix party -party_id $party_id -context_id [ad_conn package_id] $party_type 
+	party::new -email ${party.email} -form_id add_party -variable_prefix party -party_id $party_id -context_id [ad_conn package_id] $party_type 
 
 	relation_add -form_id add_party -variable_prefix rel -member_state $member_state $add_with_rel_type $add_to_group_id $party_id