--- loncom/interface/Attic/londropadd.pm 2001/12/19 17:17:46 1.17 +++ 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.17 2001/12/19 17:17:46 albertel Exp $ +# $Id: londropadd.pm,v 1.19 2002/01/04 18:13:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,6 +45,9 @@ # 8/6 Scott Harrison # Guy Albertelli # 9/25 Gerd Kortemeyer +# 12/19 Guy Albertelli +# YEAR=2002 +# 1/4 Gerd Kortemeyer package Apache::londropadd; @@ -499,6 +502,10 @@ LON-CAPA domain: Full Update Full update (also print list of users not enrolled anymore)
+
Note: for large courses, this operation might be time consuming.
ENDPICK
@@ -533,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');
}
@@ -742,6 +749,10 @@ Local Authentication with argument
Set Ending Date
+
ENDSENROLL
@@ -908,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
");