--- loncom/interface/domainprefs.pm 2009/08/22 18:48:56 1.106
+++ loncom/interface/domainprefs.pm 2009/08/22 20:28:29 1.107
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.106 2009/08/22 18:48:56 raeburn Exp $
+# $Id: domainprefs.pm,v 1.107 2009/08/22 20:28:29 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -849,20 +849,22 @@ sub display_color_options {
' '.
'';
- $datatable .= '
'.
- ''.$choices->{'fontmenu'}.' | ';
- if (!$is_custom->{'fontmenu'}) {
- $datatable .= ''.&mt('Default in use:').' '.$defaults->{'fontmenu'}.' | ';
- } else {
- $datatable .= ' | ';
+ unless ($role eq 'login') {
+ $datatable .= '
'.
+ ''.$choices->{'fontmenu'}.' | ';
+ if (!$is_custom->{'fontmenu'}) {
+ $datatable .= ''.&mt('Default in use:').' '.$defaults->{'fontmenu'}.' | ';
+ } else {
+ $datatable .= ' | ';
+ }
+ $fontlink = &color_pick($phase,$role,'fontmenu',$choices->{'fontmenu'},$designs->{'fontmenu'});
+ $datatable .= ''.
+ ' '.$fontlink.
+ ' '.
+ ' |
';
}
- $fontlink = &color_pick($phase,$role,'fontmenu',$choices->{'fontmenu'},$designs->{'fontmenu'});
- $datatable .= ''.
- ' '.$fontlink.
- ' '.
- ' | ';
my $switchserver = &check_switchserver($dom,$confname);
foreach my $img (@{$images}) {
$itemcount ++;
@@ -3216,6 +3218,7 @@ sub modify_colors {
@logintext = ('textcol','bgcol');
} else {
%choices = &color_font_choices();
+ $confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'};
}
if ($role eq 'login') {
@images = ('img','logo','domlogo','login');
@@ -3225,7 +3228,6 @@ sub modify_colors {
@bgs = ('pgbg','tabbg','sidebg');
}
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
- $confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'};
foreach my $item (@bgs,@links,@logintext) {
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
}
@@ -3339,13 +3341,15 @@ sub modify_colors {
$changes{$role}{'font'} = 1;
}
}
- if ($domconfig->{$role}{'fontmenu'} ne '') {
- if ($confhash->{$role}{'fontmenu'} ne $domconfig->{$role}{'fontmenu'}) {
- $changes{$role}{'fontmenu'} = 1;
- }
- } else {
- if ($confhash->{$role}{'fontmenu'}) {
- $changes{$role}{'fontmenu'} = 1;
+ if ($role ne 'login') {
+ if ($domconfig->{$role}{'fontmenu'} ne '') {
+ if ($confhash->{$role}{'fontmenu'} ne $domconfig->{$role}{'fontmenu'}) {
+ $changes{$role}{'fontmenu'} = 1;
+ }
+ } else {
+ if ($confhash->{$role}{'fontmenu'}) {
+ $changes{$role}{'fontmenu'} = 1;
+ }
}
}
foreach my $item (@bgs) {