version 1.57, 2021/12/28 02:04:35
|
version 1.58, 2022/02/03 17:37:57
|
Line 488 sub update_LC {
|
Line 488 sub update_LC {
|
foreach my $class (keys(%delaydrops)) { |
foreach my $class (keys(%delaydrops)) { |
if (ref($delaydrops{$class}) eq 'ARRAY') { |
if (ref($delaydrops{$class}) eq 'ARRAY') { |
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); |
if ($failsafe eq 'any') { |
|
$$logmsg .= &mt('The following students were not expired from the old section [_1] because the number of students with roles to expire exceeded the failsafe threshold of [_2], set to apply when the enrollment retrieved for an institutional section is zero or greater:',$class,$autofailsafe); |
|
} else { |
|
$$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 .= '<br />'.join('<br />',@{$delaydrops{$class}}).$linefeed; |
$$logmsg .= '<br />'.join('<br />',@{$delaydrops{$class}}).$linefeed; |
} elsif ($context eq "automated") { |
} elsif ($context eq "automated") { |
Line 575 sub create_newuser {
|
Line 579 sub create_newuser {
|
my $pid = $args->{'pid'}; |
my $pid = $args->{'pid'}; |
my $first = $args->{'first'}; |
my $first = $args->{'first'}; |
my $middle = $args->{'middle'}; |
my $middle = $args->{'middle'}; |
my $last = $args->{'last'} ; |
my $last = $args->{'last'}; |
my $gene = $args->{'gene'}; |
my $gene = $args->{'gene'}; |
my $usec = $args->{'usec'}; |
my $usec = $args->{'usec'}; |
my $end = $args->{'end'}; |
my $end = $args->{'end'}; |