--- loncom/interface/Attic/londropadd.pm 2003/07/02 15:25:46 1.70 +++ 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.70 2003/07/02 15:25:46 matthew Exp $ +# $Id: londropadd.pm,v 1.72 2003/07/03 19:26:20 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -79,7 +79,9 @@ sub modifystudent { # We are in this course my $section=$1; $section='' if ($course eq $courseid.'_st'); - if ( ((!$section) && (!$csec)) || ($section ne $csec) ) { + if ($section eq $csec) { + $result .= 'ok:'; + } elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) { my (undef,$end,$start)=split(/\_/,$roles{$course}); my $now=time; # if this is an active role @@ -1464,7 +1466,7 @@ sub upfile_drop_add { ####################################### ## Enroll Students ## ####################################### - $r->print('
'); my $count=0; my $flushc=0; my %student=(); @@ -1493,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=''; @@ -1537,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.
"); #####################################