version 1.156, 2009/05/04 19:35:31
|
version 1.157, 2009/05/05 11:40:51
|
Line 1077 sub colorschanger {
|
Line 1077 sub colorschanger {
|
# figure out colors |
# figure out colors |
my $function=&Apache::loncommon::get_users_function(); |
my $function=&Apache::loncommon::get_users_function(); |
my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
my %colortypes=('pgbg' => 'Page Background', |
my %colortypes=&Apache::lonlocal::texthash( |
'tabbg' => 'Header Background', |
'pgbg' => 'Page Background Color', |
'sidebg'=> 'Header Border', |
'tabbg' => 'Header Background Color', |
'font' => 'Font', |
'sidebg' => 'Header Border Color', |
'fontmenu' => 'Font Menu', |
'font' => 'Font Color', |
'link' => 'Un-Visited Link', |
'fontmenu' => 'Font Menu Color', |
'vlink' => 'Visited Link', |
'link' => 'Un-Visited Link Color', |
'alink' => 'Active Link'); |
'vlink' => 'Visited Link Color', |
|
'alink' => 'Active Link Color', |
|
); |
my $start_data_table = &Apache::loncommon::start_data_table(); |
my $start_data_table = &Apache::loncommon::start_data_table(); |
my $chtable=''; |
my $chtable=''; |
foreach my $item (sort(keys(%colortypes))) { |
foreach my $item (sort(keys(%colortypes))) { |
Line 1095 sub colorschanger {
|
Line 1097 sub colorschanger {
|
'" size="10" value="'.$curcol. |
'" size="10" value="'.$curcol. |
'" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}. |
'" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}. |
"','".$curcol."','" |
"','".$curcol."','" |
.$item."','parmform.pres','psub'".');">Select</a></td>'. |
.$item."','parmform.pres','psub'".');">'.&mt('Select').'</a></td>'. |
&Apache::loncommon::end_data_table_row()."\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
} |
} |
my $end_data_table = &Apache::loncommon::end_data_table(); |
my $end_data_table = &Apache::loncommon::end_data_table(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $save = &mt('Save'); |
my $savebutton = &mt('Save'); |
my $rstall = &mt('Reset All'); |
my $resetbutton = &mt('Reset All'); |
my $resetdefault = &mt('Reset All Colors to Default'); |
my $resetbuttondesc = &mt('Reset All Colors to Default'); |
$r->print(<<ENDCOL); |
$r->print(<<ENDCOL); |
<script type="text/javascript" language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
|
|
Line 1141 $start_data_table
|
Line 1143 $start_data_table
|
$chtable |
$chtable |
$end_data_table |
$end_data_table |
</table> |
</table> |
<input type="submit" value="$save" /> |
<p> |
<input type="submit" name="resetall" value="$rstall" title="$resetdefault" /> |
<input type="submit" value="$savebutton" /> |
|
<input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" /> |
|
</p> |
</form> |
</form> |
ENDCOL |
ENDCOL |
} |
} |
Line 1152 sub verify_and_change_colors {
|
Line 1156 sub verify_and_change_colors {
|
# figure out colors |
# figure out colors |
my $function=&Apache::loncommon::get_users_function(); |
my $function=&Apache::loncommon::get_users_function(); |
my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
my %colortypes=('pgbg' => 'Page Background', |
my %colortypes=&Apache::lonlocal::texthash( |
'tabbg' => 'Header Background', |
'pgbg' => 'Page Background Color', |
'sidebg'=> 'Header Border', |
'tabbg' => 'Header Background Color', |
'font' => 'Font', |
'sidebg' => 'Header Border Color', |
'fontmenu' => 'Font Menu', |
'font' => 'Font Color', |
'link' => 'Un-Visited Link', |
'fontmenu' => 'Font Menu Color', |
'vlink' => 'Visited Link', |
'link' => 'Un-Visited Link Color', |
'alink' => 'Active Link'); |
'vlink' => 'Visited Link Color', |
|
'alink' => 'Active Link Color', |
|
); |
|
|
my $message=''; |
my $message=''; |
foreach my $item (keys %colortypes) { |
foreach my $item (keys %colortypes) { |
Line 1168 sub verify_and_change_colors {
|
Line 1174 sub verify_and_change_colors {
|
if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) { |
if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) { |
&Apache::lonnet::put('environment',{$entry => $color}); |
&Apache::lonnet::put('environment',{$entry => $color}); |
&Apache::lonnet::appenv({'environment.'.$entry => $color}); |
&Apache::lonnet::appenv({'environment.'.$entry => $color}); |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set '.$colortypes{$item}.' to ').'<tt>"'.$color.'"</tt>').'<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.$colortypes{$item}.'</i>','<tt>"'.$color.'"</tt>')) |
|
.'<br />'; |
} else { |
} else { |
&Apache::lonnet::del('environment',[$entry]); |
&Apache::lonnet::del('environment',[$entry]); |
&Apache::lonnet::delenv('environment.'.$entry); |
&Apache::lonnet::delenv('environment.'.$entry); |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Reset '.$colortypes{$item}.'.')).'<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.$colortypes{$item}.'</i>')) |
|
.'<br />'; |
} |
} |
} |
} |
|
|
my $now = time; |
my $now = time; |
&Apache::lonnet::put('environment',{'color.timestamp' => $now}); |
&Apache::lonnet::put('environment',{'color.timestamp' => $now}); |
&Apache::lonnet::appenv({'environment.color.timestamp' => $now}); |
&Apache::lonnet::appenv({'environment.color.timestamp' => $now}); |