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

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

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

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