--- loncom/interface/lonparmset.pm	2007/09/11 01:59:30	1.381
+++ loncom/interface/lonparmset.pm	2007/10/06 04:32:49	1.382
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.381 2007/09/11 01:59:30 albertel Exp $
+# $Id: lonparmset.pm,v 1.382 2007/10/06 04:32:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2124,9 +2124,19 @@ sub crsenv {
                 if ($name eq 'cloners') {
                     &change_clone($value,\@oldcloner);
                 }
-                # Flush the course logs so course description is immediately updated
+                # Update environment and nohist_courseids.db
                 if ($name eq 'description' && defined($value)) {
-                    &Apache::lonnet::flushcourselogs();
+                    my %crsinfo = 
+                        &Apache::lonnet::courseiddump($dom,'.',1,'.','.',
+                                                 $crs,undef,undef,'Course');
+                    &Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.description' => $value);
+                    if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
+                        $crsinfo{$env{'request.course.id'}}{'description'} = $value; 
+                        my $chome = &Apache::lonnet::homeserver($crs,$dom);
+                        my $putresult =
+                            &Apache::lonnet::courseidput($dom,\%crsinfo,
+                                                         $chome,'notime');
+                    }
                 }
             } else {
                 $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').