--- loncom/interface/Attic/londropadd.pm 2002/01/04 15:56:07 1.18 +++ loncom/interface/Attic/londropadd.pm 2002/01/04 18:13:58 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.18 2002/01/04 15:56:07 www Exp $ +# $Id: londropadd.pm,v 1.19 2002/01/04 18:13:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -505,7 +505,7 @@ LON-CAPA domain: ID/Student Number Disable ID/Student Number Safeguard and Force Change of Conflicting IDs -(only do if you know what you are doing) +(only do if you know what you are doing)
Note: for large courses, this operation might be time consuming.
ENDPICK
@@ -540,7 +540,7 @@ sub enroll_single_student {
$ENV{'form.cfirst'},$ENV{'form.cmiddle'},
$ENV{'form.clast'},$ENV{'form.cgen'},
$ENV{'form.csec'},$ENV{'form.enddate'},
- $ENV{'form.startdate'}));
+ $ENV{'form.startdate'},$ENV{'form.forceid'}));
} else {
$r->print('Invalid login mode or password');
}
@@ -752,7 +752,7 @@ Local Authentication with argument
ENDSENROLL
@@ -919,7 +919,8 @@ sub upfile_drop_add {
&dropstudent($domain,$username,$cid,$sec);
my $reply=&Apache::lonnet::modifystudent(
$domain,$username,$id,$amode,$password,
- $fname,$mname,$lname,$gen,$sec,$enddate,$startdate);
+ $fname,$mname,$lname,$gen,$sec,$enddate,$startdate,
+ $ENV{'form.forceid'});
unless ($reply eq 'ok') {
$r->print(
"
Error enrolling $username: $reply
");