--- loncom/interface/Attic/londropadd.pm 2003/07/02 19:52:56 1.71 +++ loncom/interface/Attic/londropadd.pm 2003/07/03 19:26:20 1.72 @@ -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.72 2003/07/03 19:26:20 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1466,7 +1466,7 @@ sub upfile_drop_add { ####################################### ## Enroll Students ## ####################################### - $r->print('
'); my $count=0; my $flushc=0; my %student=(); @@ -1495,9 +1495,9 @@ sub upfile_drop_add { } } if ($entries{$fields{'username'}}=~/\W/) { - $r->print('
Unacceptable username: '.
+ $r->print('
Unacceptable username: '.
$entries{$fields{'username'}}.' for user '.
- $fname.' '.$mname.' '.$lname.' '.$gen.'
'); + $fname.' '.$mname.' '.$lname.' '.$gen.''); } else { # determine section number my $sec=''; @@ -1539,9 +1539,9 @@ sub upfile_drop_add { $fname,$mname,$lname,$gen,$sec,$enddate, $startdate,$ENV{'form.forceid'},$desiredhost); if ($reply ne 'ok') { - $r->print('
'. - 'Error enrolling '.$username.': '. - $reply.'
'); + $reply =~ s/^error://; + $r->print('No password for $username
");
+ $r->print('
'.$username.':'.
+ ' Unable to enroll: No password specified.');
}
}
}
} # end of foreach (@studentdata)
- $r->print('
Processed Students: '.$count.'
'); + $r->print('Processed Students: '.$count.'
'); $r->print("If active, the new role will be available when the ". "students next log in to LON-CAPA.
"); #####################################