![[BACK]](/icons/back.gif){kind=icon}
Return to Enrollment.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / enrollment|
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/) { |