version 1.257, 2015/03/07 23:17:15
|
version 1.260, 2015/04/01 23:02:44
|
Line 2971 sub print_coursedefaults {
|
Line 2971 sub print_coursedefaults {
|
$deftimeout{$type} = $staticdefaults{'postsubmit'}; |
$deftimeout{$type} = $staticdefaults{'postsubmit'}; |
} |
} |
} |
} |
|
} else { |
|
foreach my $type (@types) { |
|
$deftimeout{$type} = $staticdefaults{'postsubmit'}; |
|
} |
} |
} |
if (!$currdefresponder) { |
if (!$currdefresponder) { |
$currdefresponder = $staticdefaults{'anonsurvey_threshold'}; |
$currdefresponder = $staticdefaults{'anonsurvey_threshold'}; |
Line 3015 sub print_coursedefaults {
|
Line 3019 sub print_coursedefaults {
|
next if ($type eq 'community'); |
next if ($type eq 'community'); |
$additional .= '<td align="center">'.&mt($type).'<br />'. |
$additional .= '<td align="center">'.&mt($type).'<br />'. |
'<input type="text" name="'.$type.'_credits"'. |
'<input type="text" name="'.$type.'_credits"'. |
' value="'.$defcredits{$type}.'" size="5" /></td>'; |
' value="'.$defcredits{$type}.'" size="3" /></td>'; |
} |
} |
$additional .= '</tr></table></div>'."\n"; |
$additional .= '</tr></table></div>'."\n"; |
%defaultchecked = ('coursecredits' => 'off'); |
%defaultchecked = ('coursecredits' => 'off'); |
Line 3033 sub print_coursedefaults {
|
Line 3037 sub print_coursedefaults {
|
$display = 'block'; |
$display = 'block'; |
} |
} |
$additional = '<div id="studentsubmission" style="display: '.$display.'">'. |
$additional = '<div id="studentsubmission" style="display: '.$display.'">'. |
'<i>'.&mt('Number of seconds submit is disabled').'</i><br /><table><tr>'; |
&mt('Number of seconds submit is disabled').'<br />'. |
|
'<i>'.&mt('Enter 0 to remain disabled until page reload.').'</i><br />'. |
|
'<table><tr>'; |
foreach my $type (@types) { |
foreach my $type (@types) { |
$additional .= '<td align="center">'.&mt($type).'<br />'. |
$additional .= '<td align="center">'.&mt($type).'<br />'. |
'<input type="text" name="'.$type.'_timeout" value="'. |
'<input type="text" name="'.$type.'_timeout" value="'. |
Line 12012 sub devalidate_remote_domconfs {
|
Line 12018 sub devalidate_remote_domconfs {
|
my %thismachine; |
my %thismachine; |
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
my @posscached = ('domainconfig','domdefaults'); |
my @posscached = ('domainconfig','domdefaults'); |
if (keys(%servers) > 1) { |
if (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
next if ($thismachine{$server}); |
next if ($thismachine{$server}); |
my @cached; |
my @cached; |