Return to Enrollment.pm CVS log | Up to [LON-CAPA] / loncom / enrollment |
version 1.54, 2019/08/25 02:43:09 | version 1.56, 2021/10/08 18:49:17 |
---|---|
Line 25 | Line 25 |
# | # |
package LONCAPA::Enrollment; | package LONCAPA::Enrollment; |
use lib '/home/httpd/lib/perl'; | |
use Apache::loncoursedata; | use Apache::loncoursedata; |
use Apache::lonnet; | use Apache::lonnet; |
use Apache::loncommon(); | use Apache::loncommon(); |
Line 35 use HTML::Parser; | Line 36 use HTML::Parser; |
use LONCAPA::Configuration; | use LONCAPA::Configuration; |
use Math::Random; | use Math::Random; |
use Time::Local; | use Time::Local; |
use lib '/home/httpd/lib/perl'; | |
use strict; | use strict; |
Line 331 sub update_LC { | Line 331 sub update_LC { |
} | } |
} | } |
# Check for institutional section change | # Check for institutional section change |
if (($$currlist{$uname}[$instidx] ne $instsec) && (!$added)) { | if (($$currlist{$uname}[$instidx] ne $instsec) && (!$added) && ($$currlist{$uname}[$type] eq "auto")) { |
my $modify_instsec_result = | my $modify_instsec_result = |
&Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$enddate,$startdate,'auto','',$cid,'',$context,$credits,$instsec); | &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$enddate,$startdate,'auto','',$cid,'',$context,$credits,$instsec); |
if ($modify_instsec_result =~ /^ok/) { | if ($modify_instsec_result =~ /^ok/) { |