loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.443, 2024/08/31 18:48:53	version 1.444, 2024/10/11 23:29:34
Line 13732 sub modify_colors {	Line 13732 sub modify_colors {
@bgs = ('pgbg','tabbg','sidebg');	@bgs = ('pgbg','tabbg','sidebg');
}	}
my %defaults = &role_defaults($role,\@bgs,\@links,\@images,\@logintext);	my %defaults = &role_defaults($role,\@bgs,\@links,\@images,\@logintext);
unless ($env{'form.'.$role.'_font'} eq $defaults{'font'}) {	$env{'form.'.$role.'_font'} = lc($env{'form.'.$role.'_font'});
	if ($env{'form.'.$role.'_font'} =~ /^\w+/) {
	$env{'form.'.$role.'_font'} = '#'.$env{'form.'.$role.'_font'};
	}
	unless ($env{'form.'.$role.'_font'} eq lc($defaults{'font'})) {
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};	$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
}	}
if ($role eq 'login') {	if ($role eq 'login') {