--- loncom/interface/lonpreferences.pm 2006/05/01 22:15:17 1.82 +++ loncom/interface/lonpreferences.pm 2006/05/08 18:50:27 1.84 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.82 2006/05/01 22:15:17 albertel Exp $ +# $Id: lonpreferences.pm,v 1.84 2006/05/08 18:50:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -519,13 +519,13 @@ sub colorschanger { foreach my $item (sort(keys(%colortypes))) { my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain); $chtable.=&Apache::loncommon::start_data_table_row(). - ''.$colortypes{$item}.'      Select'. - &Apache::loncommon::end_data_table_row(); + &Apache::loncommon::end_data_table_row()."\n"; } my $end_data_table = &Apache::loncommon::end_data_table(); my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); @@ -600,6 +600,10 @@ sub verify_and_change_colors { $message.='Reset '.$colortypes{$item}.'
'; } } + my $now = time; + &Apache::lonnet::put('environment',{'color.timestamp' => $now}); + &Apache::lonnet::appenv('environment.color.timestamp' => $now); + $r->print(<