loncom/interface/lonconfigsettings.pm - diff

Return to lonconfigsettings.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49, 2021/07/30 13:48:20	version 1.50, 2021/08/04 19:59:10
Line 355 sub make_changes {	Line 355 sub make_changes {
{href=>"javascript:changePage(document.$phase,'$phase')",	{href=>"javascript:changePage(document.$phase,'$phase')",
text=>"Updated"});	text=>"Updated"});
&print_header($r,$phase,$context,undef,$container);	&print_header($r,$phase,$context,undef,$container);
my ($crstype,%lastact);	my ($crstype,%lastact,$errors);
if ($context eq 'course') {	if ($context eq 'course') {
$crstype = &Apache::loncommon::course_type();	$crstype = &Apache::loncommon::course_type();
}	}
Line 369 sub make_changes {	Line 369 sub make_changes {
$confname,$item,$roles,$values,\%lastact));	$confname,$item,$roles,$values,\%lastact));
} else {	} else {
$changes{$item} = {};	$changes{$item} = {};
&Apache::courseprefs::process_changes($dom,$item,$values,	$errors =
$prefs->{$item},$changes{$item},	&Apache::courseprefs::process_changes($dom,$item,$values,
$allitems,\%disallowed,$crstype);	$prefs->{$item},$changes{$item},
	$allitems,\%disallowed,$crstype);
if (keys(%{$changes{$item}}) > 0) {	if (keys(%{$changes{$item}}) > 0) {
$numchanged ++;	$numchanged ++;
}	}
Line 403 sub make_changes {	Line 404 sub make_changes {
}	}
$r->print('</p>');	$r->print('</p>');
}	}
	if ($errors) {
	$r->print('<p>'.$errors.'</p>');
	}
}	}
$r->print('<p>');	$r->print('<p>');
my $footer_text = 'Back to configuration display';	my $footer_text = 'Back to configuration display';