--- loncom/interface/lonpreferences.pm 2006/05/01 22:54:43 1.83
+++ loncom/interface/lonpreferences.pm 2006/06/14 18:54:23 1.87
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.83 2006/05/01 22:54:43 albertel Exp $
+# $Id: lonpreferences.pm,v 1.87 2006/06/14 18:54:23 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,6 +33,7 @@
package Apache::lonpreferences;
use strict;
+use LONCAPA;
use Apache::Constants qw(:common);
use Apache::File;
use Crypt::DES;
@@ -600,6 +601,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(<
@@ -875,7 +880,7 @@ sub discussionchanger {