--- loncom/interface/Attic/londropadd.pm 2005/01/11 22:12:22 1.123 +++ loncom/interface/Attic/londropadd.pm 2005/01/31 11:27:14 1.124 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.123 2005/01/11 22:12:22 albertel Exp $ +# $Id: londropadd.pm,v 1.124 2005/01/31 11:27:14 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -770,7 +770,7 @@ sub enroll_single_student { $ENV{'form.clast'},$ENV{'form.cgen'}, $ENV{'form.csec'},$enddate, $startdate,$ENV{'form.forceid'}, - $desiredhost); + $desiredhost,$ENV{'form.emailaddress'}); if ($login_result =~ /^ok/) { $r->print($login_result); $r->print("
".&mt('If active, the new role will be available when the student next logs in to LON-CAPA.')."
"); @@ -983,6 +983,7 @@ sub print_enroll_single_student_form { 'hs' => "Home Server", 'pswd' => "Password", 'psam' => "Please select an authentication mechanism", + 'mail' => "Email Address" ); $user_data_html = <