--- loncom/interface/loncreateuser.pm	2007/09/07 19:51:41	1.183
+++ loncom/interface/loncreateuser.pm	2007/09/12 23:26:25	1.184
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.183 2007/09/07 19:51:41 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.184 2007/09/12 23:26:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1359,7 +1359,7 @@ sub update_user_data {
 	    ($env{'form.ccdomain'},$env{'form.ccuname'},$env{'form.cstid'},
              $amode,$genpwd,$env{'form.cfirst'},
              $env{'form.cmiddle'},$env{'form.clast'},$env{'form.cgen'},
-             undef,$desiredhost
+             undef,$desiredhost,$env{'form.cemail'}
 	     );
 	$r->print(&mt('Generating user').': '.$result);
         my $home = &Apache::lonnet::homeserver($env{'form.ccuname'},