--- loncom/interface/Attic/londropadd.pm 2003/07/02 19:52:56 1.71
+++ loncom/interface/Attic/londropadd.pm 2003/07/05 10:07:11 1.73
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.71 2003/07/02 19:52:56 matthew Exp $
+# $Id: londropadd.pm,v 1.73 2003/07/05 10:07:11 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -218,7 +218,7 @@ sub javascript_validations {
my $authheader = &Apache::loncommon::authform_header(%param);
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
return (< ');
my $count=0;
my $flushc=0;
my %student=();
@@ -1495,9 +1500,9 @@ sub upfile_drop_add {
}
}
if ($entries{$fields{'username'}}=~/\W/) {
- $r->print(' Unacceptable username: '.
+ $r->print(' ');
+ $fname.' '.$mname.' '.$lname.' '.$gen.'');
} else {
# determine section number
my $sec='';
@@ -1515,6 +1520,14 @@ sub upfile_drop_add {
}
$id=~tr/A-Z/a-z/;
}
+ # determine email address
+ my $email='';
+ if (defined($fields{'email'})) {
+ if (defined($entries{$fields{'email'}})) {
+ $email=$entries{$fields{'email'}};
+ unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; }
+ }
+ }
# determine student password
my $password='';
if ($genpwd) {
@@ -1537,11 +1550,12 @@ sub upfile_drop_add {
my $reply=&Apache::lonnet::modifystudent
($domain,$username,$id,$amode,$password,
$fname,$mname,$lname,$gen,$sec,$enddate,
- $startdate,$ENV{'form.forceid'},$desiredhost);
+ $startdate,$ENV{'form.forceid'},$desiredhost,
+ $email);
if ($reply ne 'ok') {
- $r->print(' '.
- 'Error enrolling '.$username.': '.
- $reply.' No password for $username ");
+ $r->print(' Processed Students: '.$count.'Enrolling Students
');
+ $r->print('Enrolling Students
'."\n".'
Unacceptable username: '.
$entries{$fields{'username'}}.' for user '.
- $fname.' '.$mname.' '.$lname.' '.$gen.'
'.$username.':'.
+ ' Unable to enroll: '.$reply);
} else {
$count++; $flushc++;
$student{$username}=1;
@@ -1552,12 +1566,13 @@ sub upfile_drop_add {
}
}
} else {
- $r->print("
'.$username.':'.
+ ' Unable to enroll: No password specified.');
}
}
}
} # end of foreach (@studentdata)
- $r->print('
Processed Students: '.$count.'
'); $r->print("If active, the new role will be available when the ". "students next log in to LON-CAPA.
"); #####################################