--- loncom/lonnet/perl/lonnet.pm 2002/08/09 18:12:19 1.265 +++ loncom/lonnet/perl/lonnet.pm 2002/08/09 19:49:30 1.266 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.265 2002/08/09 18:12:19 albertel Exp $ +# $Id: lonnet.pm,v 1.266 2002/08/09 19:49:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -820,7 +820,7 @@ sub flushcourselogs { my $entry=$_; $entry=~/\_\_\_(\w+)\/(\w+)\/(.*)\_\_\_(\w+)$/; my %temphash=($entry => $accesshash{$entry}); - if (&Apache::lonnet::put('resevaldata',\%temphash,$1,$2) eq 'ok') { + if (&Apache::lonnet::put('nohist_resevaldata',\%temphash,$1,$2) eq 'ok') { delete $accesshash{$entry}; } }