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

[raeburn]

raeburn		Fri Oct 11 23:29:34 2024 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - prepend # before storing font color default for domain.
  - lower case font color choice.
  - only save font color to domain's configuration.db if different to default.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.443 loncom/interface/domainprefs.pm:1.444
--- loncom/interface/domainprefs.pm:1.443	Sat Aug 31 18:48:53 2024
+++ loncom/interface/domainprefs.pm	Fri Oct 11 23:29:34 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.443 2024/08/31 18:48:53 raeburn Exp $
+# $Id: domainprefs.pm,v 1.444 2024/10/11 23:29:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -13732,7 +13732,11 @@
             @bgs = ('pgbg','tabbg','sidebg');
         }
         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'};
         }
         if ($role eq 'login') {