[LON-CAPA-cvs] cvs: loncom(version_2_6_X) /interface domainprefs.pm

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Thu, 15 May 2008 13:50:26 -0000


raeburn		Thu May 15 09:50:26 2008 EDT

  Modified files:              (Branch: version_2_6_X)
    /loncom/interface	domainprefs.pm 
  Log:
  - backport 1.51
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.41 loncom/interface/domainprefs.pm:1.41.2.1
--- loncom/interface/domainprefs.pm:1.41	Wed Jan 16 15:42:48 2008
+++ loncom/interface/domainprefs.pm	Thu May 15 09:50:23 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.41 2008/01/16 20:42:48 raeburn Exp $
+# $Id: domainprefs.pm,v 1.41.2.1 2008/05/15 13:50:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2012,7 +2012,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;
@@ -2027,8 +2027,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) {