[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Thu, 15 May 2008 01:56:45 -0000
raeburn Wed May 14 21:56:45 2008 EDT
Modified files:
/loncom/interface domainprefs.pm
Log:
Middle background color setting is mainbg for login page, tabbg for student, coord, author and admin roles.
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.50 loncom/interface/domainprefs.pm:1.51
--- loncom/interface/domainprefs.pm:1.50 Wed May 14 16:21:34 2008
+++ loncom/interface/domainprefs.pm Wed May 14 21:56:44 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.50 2008/05/14 20:21:34 raeburn Exp $
+# $Id: domainprefs.pm,v 1.51 2008/05/15 01:56:44 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2570,7 +2570,7 @@
sub modify_colors {
my ($r,$dom,$confname,$roles,$domconfig,$confhash) = @_;
my (%changes,%choices);
- my @bgs = ('pgbg','mainbg','sidebg');
+ my @bgs;
my @links = ('link','alink','vlink');
my @logintext;
my @images;
@@ -2585,8 +2585,10 @@
}
if ($role eq 'login') {
@images = ('img','logo','domlogo','login');
+ @bgs = ('pgbg','mainbg','sidebg');
} else {
@images = ('img');
+ @bgs = ('pgbg','tabbg','sidebg');
}
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
foreach my $item (@bgs,@links,@logintext) {