version 1.399, 2021/12/28 02:04:35
|
version 1.400, 2021/12/28 03:26:44
|
Line 3880 sub print_autoenroll {
|
Line 3880 sub print_autoenroll {
|
if (exists($settings->{'failsafe'})) { |
if (exists($settings->{'failsafe'})) { |
$failsafe = $settings->{'failsafe'}; |
$failsafe = $settings->{'failsafe'}; |
if ($failsafe eq 'zero') { |
if ($failsafe eq 'zero') { |
$failsafechecked{'zero'} = ' checked="checked"'; |
$failsafechecked{'zero'} = ' checked="checked"'; |
$failsafechecked{'off'} = ''; |
$failsafechecked{'off'} = ''; |
$failsafesty = 'inline-block'; |
$failsafesty = 'inline-block'; |
} elsif ($failsafe eq 'any') { |
} elsif ($failsafe eq 'any') { |
Line 3893 sub print_autoenroll {
|
Line 3893 sub print_autoenroll {
|
if ($autofailsafe ne '') { |
if ($autofailsafe ne '') { |
$failsafechecked{'zero'} = ' checked="checked"'; |
$failsafechecked{'zero'} = ' checked="checked"'; |
$failsafe = 'zero'; |
$failsafe = 'zero'; |
$failsafechecked{'off'} = ''; |
$failsafechecked{'off'} = ''; |
} |
} |
} |
} |
} else { |
} else { |
Line 3933 sub print_autoenroll {
|
Line 3933 sub print_autoenroll {
|
$coownersoff.' value="0" />'.&mt('No').'</label></span></td>'. |
$coownersoff.' value="0" />'.&mt('No').'</label></span></td>'. |
'</tr><tr>'. |
'</tr><tr>'. |
'<td>'.&mt('Failsafe for no drops when institutional data missing').'</td>'. |
'<td>'.&mt('Failsafe for no drops when institutional data missing').'</td>'. |
'<td class="LC_right_item"><span class="LC_nobreak">'. |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
'<span class="LC_nobreak"><label><input type="radio name="autoenroll_failsafe" value="off" onclick="toggleFailsafe(this.form)" />'.&mt('Not in use').'</label></span><br />'. |
'<span class="LC_nobreak"><label><input type="radio" name="autoenroll_failsafe" value="off" onclick="toggleFailsafe(this.form)"'.$failsafechecked{'off'}.' />'.&mt('Not in use').'</label></span> '. |
'<span class="LC_nobreak"><label><input type="radio name="autoenroll_failsafe" value="zero" onclick="toggleFailsafe(this.form)" />'.&mt('Retrieved section enrollment is zero').'</label></span><br />'. |
'<span class="LC_nobreak"><label><input type="radio" name="autoenroll_failsafe" value="zero" onclick="toggleFailsafe(this.form)"'.$failsafechecked{'zero'}.' />'.&mt('Retrieved section enrollment is zero').'</label></span><br />'. |
'<span class="LC_nobreak"><label><input type="radio name="autoenroll_failsafe" value="any" onclick="toggleFailsafe(this.form)" />'.&mt('Retrieved section enrollment is zero or greater').'</label></span>'. |
'<span class="LC_nobreak"><label><input type="radio" name="autoenroll_failsafe" value="any" onclick="toggleFailsafe(this.form)"'.$failsafechecked{'any'}.' />'.&mt('Retrieved section enrollment is zero or greater').'</label></span>'. |
'<div class="LC_floatleft" style="display:'.$failsafesty.';" id="autoenroll_failsafe_div">'. |
'<div class="LC_floatleft" style="display:'.$failsafesty.';" id="autoenroll_failsafe_div">'. |
'<span class="LC_nobreak">'. |
'<span class="LC_nobreak">'. |
&mt('Threshold for number of students in section to drop: [_1]', |
&mt('Threshold for number of students in section to drop: [_1]', |
Line 16000 sub modify_autoenroll {
|
Line 16000 sub modify_autoenroll {
|
my $failsafe = $env{'form.autoenroll_failsafe'}; |
my $failsafe = $env{'form.autoenroll_failsafe'}; |
unless (($failsafe eq 'zero') || ($failsafe eq 'any')) { |
unless (($failsafe eq 'zero') || ($failsafe eq 'any')) { |
$failsafe = 'off'; |
$failsafe = 'off'; |
undef($autofailsafe); |
undef($autofailsafe); |
} |
} |
my %autoenrollhash = ( |
my %autoenrollhash = ( |
autoenroll => { 'run' => $env{'form.autoenroll_run'}, |
autoenroll => { 'run' => $env{'form.autoenroll_run'}, |
Line 16008 sub modify_autoenroll {
|
Line 16008 sub modify_autoenroll {
|
'sender_domain' => $sender_domain, |
'sender_domain' => $sender_domain, |
'co-owners' => $coowners, |
'co-owners' => $coowners, |
'autofailsafe' => $autofailsafe, |
'autofailsafe' => $autofailsafe, |
'failsafe' => $failsafe, |
'failsafe' => $failsafe, |
} |
} |
); |
); |
my $putresult = &Apache::lonnet::put_dom('configuration',\%autoenrollhash, |
my $putresult = &Apache::lonnet::put_dom('configuration',\%autoenrollhash, |