[BACK]Return to Enrollment.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / enrollment

Diff for /loncom/enrollment/Enrollment.pm between versions 1.57 and 1.58

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'};
Removed from v.1.57  
changed lines
  Added in v.1.58

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>