--- loncom/interface/Attic/londropadd.pm 2005/01/11 22:12:22 1.123 +++ loncom/interface/Attic/londropadd.pm 2005/02/17 08:29:42 1.125 @@ -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.125 2005/02/17 08:29:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -43,10 +43,11 @@ use Apache::lonlocal; ############################################################### ############################################################### sub header { + my $html=&Apache::lonxml::xmlbegin(); my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager'); my $title = &mt('LON-CAPA Enrollment Manager'); return(< +$html $title @@ -770,7 +771,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 +984,7 @@ sub print_enroll_single_student_form { 'hs' => "Home Server", 'pswd' => "Password", 'psam' => "Please select an authentication mechanism", + 'mail' => "Email Address" ); $user_data_html = <$lt{'udf'} $username\@$domain @@ -997,6 +999,8 @@ sub print_enroll_single_student_form { $lt{'hs'}: $homeserver_form +$lt{'mail'}: +

$lt{'pswd'}

$lt{'psam'} @@ -1019,6 +1023,7 @@ END 'mn' => "Middle Name", 'ln' => "Last Name", 'gen' => "Generation", + 'mail' => "Email Address", ); $user_data_html = <$lt{'udf'} $username\@$domain @@ -1040,6 +1045,10 @@ END +$lt{'mail'}: + + + END }