version 1.56, 2021/10/08 18:49:17
|
version 1.57, 2021/12/28 02:04:35
|
Line 41 use strict;
|
Line 41 use strict;
|
|
|
sub update_LC { |
sub update_LC { |
my ($dom,$crs,$adds,$drops,$startdate,$enddate,$authtype,$autharg, |
my ($dom,$crs,$adds,$drops,$startdate,$enddate,$authtype,$autharg, |
$showcredits,$defaultcredits,$autofailsafe,$classesref,$groupref, |
$showcredits,$defaultcredits,$autofailsafe,$failsafe,$classesref, |
$logmsg,$newusermsg,$context,$phototypes) = @_; |
$groupref,$logmsg,$newusermsg,$context,$phototypes) = @_; |
# Get institutional code and title of this class |
# Get institutional code and title of this class |
my %courseinfo = (); |
my %courseinfo = (); |
&get_courseinfo($dom,$crs,\%courseinfo); |
&get_courseinfo($dom,$crs,\%courseinfo); |
Line 452 sub update_LC {
|
Line 452 sub update_LC {
|
# Check enrollment count for institutional section of student to be dropped |
# Check enrollment count for institutional section of student to be dropped |
if ($$currlist{$uname}[$instidx]) { |
if ($$currlist{$uname}[$instidx]) { |
if (exists($classcount{$$currlist{$uname}[$instidx]})) { |
if (exists($classcount{$$currlist{$uname}[$instidx]})) { |
if ($classcount{$$currlist{$uname}[$instidx]} == 0) { |
if ($failsafe eq 'any') { |
if ($autofailsafe) { |
if ($autofailsafe) { |
push(@{$delaydrops{$$currlist{$uname}[$instidx]}},$uname); |
push(@{$delaydrops{$$currlist{$uname}[$instidx]}},$uname); |
next; |
next; |
} |
} |
|
} else { |
|
unless ($failsafe eq 'off') { |
|
if ($classcount{$$currlist{$uname}[$instidx]} == 0) { |
|
if ($autofailsafe) { |
|
push(@{$delaydrops{$$currlist{$uname}[$instidx]}},$uname); |
|
next; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
} |
} |