[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm

[raeburn]

raeburn		Wed Sep 12 19:26:26 2007 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  When creating a new user, actually save the permanent e-mail address, since we did ask for it.  
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.183 loncom/interface/loncreateuser.pm:1.184
--- loncom/interface/loncreateuser.pm:1.183	Fri Sep  7 15:51:41 2007
+++ loncom/interface/loncreateuser.pm	Wed Sep 12 19:26:25 2007
@@ -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 @@
 	    ($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'},