loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.258, 2015/03/13 13:30:19	version 1.260, 2015/04/01 23:02:44
Line 3037 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 12016 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;