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

Diff for /loncom/interface/lonpopulate.pm between versions 1.90 and 1.91

version 1.90, 2021/12/28 02:04:35 version 1.91, 2022/01/03 04:56:27
Line 3180  sub print_update_result { Line 3180  sub print_update_result {
         &Apache::lonnet::get('environment',          &Apache::lonnet::get('environment',
             ['internal.coursecode','internal.sectionnums','internal.crosslistings',              ['internal.coursecode','internal.sectionnums','internal.crosslistings',
              'internal.authtype','internal.autharg','internal.showphoto','internal.defaultcredits',               'internal.authtype','internal.autharg','internal.showphoto','internal.defaultcredits',
              'internal.autodropfailsafe','internal.textbook'],               'internal.autodropfailsafe','internal.autodropfailsafetype','internal.textbook'],
             $dom,$crs);              $dom,$crs);
     my $coursecode = $settings{'internal.coursecode'};      my $coursecode = $settings{'internal.coursecode'};
     my $authtype = $settings{'internal.authtype'};      my $authtype = $settings{'internal.authtype'};
Line 3202  sub print_update_result { Line 3202  sub print_update_result {
             }              }
         }          }
     }      }
       my $failsafetype = $settings{'internal.autodropfailsafetype'};
       if ($failsafetype eq '') {
           $failsafetype = $domdefaults{'failsafe'};
       }
     my $failsafe = $settings{'internal.autodropfailsafe'};      my $failsafe = $settings{'internal.autodropfailsafe'};
     if ($failsafe eq '') {      if ($failsafe eq '') {
         $failsafe = $domdefaults{'autofailsafe'};          $failsafe = $domdefaults{'autofailsafe'};
Line 3240  sub print_update_result { Line 3244  sub print_update_result {
                                  ": ".$outcome);                                   ": ".$outcome);
             }              }
     if ($reply{$crs} > 0) {      if ($reply{$crs} > 0) {
  ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$updateadds,$updatedrops,$startaccess,$endaccess,$authtype,$autharg,$showcredits,$defaultcredits,$failsafe,\@allcourses,\%LC_code,\$logmsg,\$newusermsg,"updatenow",\%phototypes);   ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$updateadds,$updatedrops,$startaccess,$endaccess,$authtype,$autharg,$showcredits,$defaultcredits,$failsafe,$failsafetype,\@allcourses,\%LC_code,\$logmsg,\$newusermsg,"updatenow",\%phototypes);
     } else {      } else {
  $response = &mt('There was a problem retrieving institutional class list data for the course sections and crosslisted courses which contribute enrollment to this course.').' '.   $response = &mt('There was a problem retrieving institutional class list data for the course sections and crosslisted courses which contribute enrollment to this course.').' '.
                             &mt('No updates have been carried out, and the roster remains unchanged.');                              &mt('No updates have been carried out, and the roster remains unchanged.');
Removed from v.1.90  
changed lines
  Added in v.1.91

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