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.'); |