|
version 1.49, 2016/07/24 14:35:15
|
version 1.51, 2017/09/18 14:21:45
|
|
Line 329 sub update_LC {
|
Line 329 sub update_LC {
|
| } |
} |
| } |
} |
| # Check for institutional section change |
# Check for institutional section change |
| if ($$currlist{$uname}[$instidx] ne $instsec) { |
if (($$currlist{$uname}[$instidx] ne $instsec) && (!$added)) { |
| 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/) { |
|
Line 479 sub update_LC {
|
Line 479 sub update_LC {
|
| if ($autofailsafe < scalar(@{$delaydrops{$class}})) { |
if ($autofailsafe < scalar(@{$delaydrops{$class}})) { |
| $$logmsg .= &mt('The following students were not expired from the old section [_1] because the enrollment count retrieved for that institutional section was zero, and the number of students with roles to expire exceeded the failsafe threshold of [_2]:',$class,$autofailsafe); |
$$logmsg .= &mt('The following students were not expired from the old section [_1] because the enrollment count retrieved for that institutional section was zero, and the number of students with roles to expire exceeded the failsafe threshold of [_2]:',$class,$autofailsafe); |
| if ($context eq "updatenow") { |
if ($context eq "updatenow") { |
| $$logmsg .= join('<br />',@{$delaydrops{$class}}).$linefeed; |
$$logmsg .= '<br />'.join('<br />',@{$delaydrops{$class}}).$linefeed; |
| } elsif ($context eq "automated") { |
} elsif ($context eq "automated") { |
| $$logmsg .= join($linefeed,@{$delaydrops{$class}}).$linefeed; |
$$logmsg .= $linefeed.join($linefeed,@{$delaydrops{$class}}).$linefeed; |
| } |
} |
| } else { |
} else { |
| foreach my $uname (@{$delaydrops{$class}}) { |
foreach my $uname (@{$delaydrops{$class}}) { |
![[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