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. |