loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.36, 2002/05/01 20:15:41	version 1.37, 2002/05/01 20:54:10
Line 106 sub modifystudent {	Line 106 sub modifystudent {
}	}
if ($result eq '') {	if ($result eq '') {
$result eq 'Unable to find section for this student';	$result eq 'Unable to find section for this student';
} elsif ($result =~ /^(ok:)+$/) {	} else {
$result eq 'ok';	$result =~ s/(ok:)+/ok/g;
}	}
return $result;	return $result;
}	}
Line 956 sub drop_student_list {	Line 956 sub drop_student_list {
foreach (@droplist) {	foreach (@droplist) {
my ($uname,$udom)=split(/\:/,$_);	my ($uname,$udom)=split(/\:/,$_);
my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});	my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});
if ($result eq 'ok') {	if ($result eq 'ok' \|\| $result eq 'ok:') {
$r->print('Dropped '.$uname.' at '.$udom.'<br>');	$r->print('Dropped '.$uname.' at '.$udom.'<br>');
} else {	} else {
$r->print('Error dropping '.$uname.' at '.$udom.': '.$result.	$r->print('Error dropping '.$uname.' at '.$udom.': '.$result.