--- loncom/interface/Attic/londropadd.pm 2002/04/30 15:24:16 1.35 +++ loncom/interface/Attic/londropadd.pm 2002/05/01 20:54:10 1.37 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.35 2002/04/30 15:24:16 matthew Exp $ +# $Id: londropadd.pm,v 1.37 2002/05/01 20:54:10 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,8 +106,8 @@ sub modifystudent { } if ($result eq '') { $result eq 'Unable to find section for this student'; - } elsif ($result =~ /^(ok:)+$/) { - $result eq 'ok'; + } else { + $result =~ s/(ok:)+/ok/g; } return $result; } @@ -175,7 +175,8 @@ sub phase_two_header { Total number of records found in file: $distotal
Disable ID/Student Number Safeguard and Force Change of Conflicting IDs (only do if you know what you are doing)
-
+
Note: for large courses, this operation might be time consuming.
ENDPICK
}
@@ -955,7 +956,7 @@ sub drop_student_list {
foreach (@droplist) {
my ($uname,$udom)=split(/\:/,$_);
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.'
');
} else {
$r->print('Error dropping '.$uname.' at '.$udom.': '.$result.