[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface domainprefs.pm
raeburn
raeburn@source.lon-capa.org
Thu, 13 Aug 2009 20:38:45 -0000
raeburn Thu Aug 13 20:38:45 2009 EDT
Modified files: (Branch: version_2_9_X)
/loncom/interface domainprefs.pm
Log:
- Eliminate changes included in 1.97 (not part of 2.9.X).
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.102 loncom/interface/domainprefs.pm:1.102.2.1
--- loncom/interface/domainprefs.pm:1.102 Tue Aug 11 23:24:29 2009
+++ loncom/interface/domainprefs.pm Thu Aug 13 20:38:45 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.102 2009/08/11 23:24:29 raeburn Exp $
+# $Id: domainprefs.pm,v 1.102.2.1 2009/08/13 20:38:45 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -763,7 +763,6 @@
my %defaults = (
img => $defaultdesign{$role.'.img'},
font => $defaultdesign{$role.'.font'},
- fontmenu => $defaultdesign{$role.'.fontmenu'},
);
foreach my $item (@bgs) {
$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item};
@@ -781,10 +780,6 @@
$designs{'font'} = $settings->{$role}->{'font'};
$is_custom{'font'} = 1;
}
- if ($settings->{$role}->{'fontmenu'} ne '') {
- $designs{'fontmenu'} = $settings->{$role}->{'fontmenu'};
- $is_custom{'fontmenu'} = 1;
- }
foreach my $item (@bgs) {
if ($settings->{$role}->{$item} ne '') {
$designs{'bgs'}{$item} = $settings->{$role}->{$item};
@@ -803,10 +798,6 @@
$designs{img} = $designhash{$dom.'.'.$role.'.img'};
$is_custom{'img'} = 1;
}
- if ($designhash{$dom.'.'.$role.'.fontmenu'} ne '') {
- $designs{fontmenu} = $designhash{$dom.'.'.$role.'.fontmenu'};
- $is_custom{'fontmenu'} = 1;
- }
if ($designhash{$dom.'.'.$role.'.font'} ne '') {
$designs{font} = $designhash{$dom.'.'.$role.'.font'};
$is_custom{'font'} = 1;
@@ -835,7 +826,7 @@
my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,
$images,$bgs,$links,$alt_text,$rowtotal,$logintext,$loginheader) = @_;
my $css_class = $itemcount%2?' class="LC_odd_row"':'';
- my $datatable = '<tr>'.
+ my $datatable = '<tr'.$css_class.'>'.
'<td>'.$choices->{'font'}.'</td>';
if (!$is_custom->{'font'}) {
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>';
@@ -849,20 +840,6 @@
' <span id="css_'.$role.'_font" style="background-color: '.
$designs->{'font'}.';"> </span>'.
'</span></td></tr>';
- $datatable .= '<tr'.$css_class.'>'.
- '<td>'.$choices->{'fontmenu'}.'</td>';
- if (!$is_custom->{'fontmenu'}) {
- $datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'fontmenu'}.';">'.$defaults->{'fontmenu'}.'</span></td>';
- } else {
- $datatable .= '<td> </td>';
- }
- $fontlink = &color_pick($phase,$role,'fontmenu',$choices->{'fontmenu'},$designs->{'fontmenu'});
- $datatable .= '<td><span class="LC_nobreak">'.
- '<input type="text" size="10" name="'.$role.'_fontmenu"'.
- ' value="'.$designs->{'fontmenu'}.'" /> '.$fontlink.
- ' <span id="css_'.$role.'_fontmenu" style="background-color: '.
- $designs->{'fontmenu'}.';"> </span>'.
- '</span></td></tr>';
my $switchserver = &check_switchserver($dom,$confname);
foreach my $img (@{$images}) {
$itemcount ++;
@@ -3139,7 +3116,6 @@
links => "Link colors",
images => "Images",
font => "Font color",
- fontmenu => "Font Menu",
pgbg => "Page",
tabbg => "Header",
sidebg => "Border",
@@ -3206,7 +3182,6 @@
@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};
}
@@ -3320,15 +3295,6 @@
$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;
- }
- }
foreach my $item (@bgs) {
if ($domconfig->{$role}{$item} ne '') {
if ($confhash->{$role}{$item} ne $domconfig->{$role}{$item}) {