loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2008/01/16 20:42:48	version 1.41.2.1, 2008/05/15 13:50:23
Line 2012 sub modify_rolecolors {	Line 2012 sub modify_rolecolors {
sub modify_colors {	sub modify_colors {
my ($r,$dom,$confname,$roles,$domconfig,$confhash) = @_;	my ($r,$dom,$confname,$roles,$domconfig,$confhash) = @_;
my (%changes,%choices);	my (%changes,%choices);
my @bgs = ('pgbg','mainbg','sidebg');	my @bgs;
my @links = ('link','alink','vlink');	my @links = ('link','alink','vlink');
my @logintext;	my @logintext;
my @images;	my @images;
Line 2027 sub modify_colors {	Line 2027 sub modify_colors {
}	}
if ($role eq 'login') {	if ($role eq 'login') {
@images = ('img','logo','domlogo','login');	@images = ('img','logo','domlogo','login');
	@bgs = ('pgbg','mainbg','sidebg');
} else {	} else {
@images = ('img');	@images = ('img');
	@bgs = ('pgbg','tabbg','sidebg');
}	}
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};	$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
foreach my $item (@bgs,@links,@logintext) {	foreach my $item (@bgs,@links,@logintext) {