--- loncom/interface/lonevaluate.pm 2002/03/29 15:15:54 1.8 +++ loncom/interface/lonevaluate.pm 2002/08/09 19:49:30 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # Evaluate # -# $Id: lonevaluate.pm,v 1.8 2002/03/29 15:15:54 www Exp $ +# $Id: lonevaluate.pm,v 1.9 2002/08/09 19:49:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -67,7 +67,7 @@ sub handler { my @retrieve=map{ $prefix.$_ } @items; my %currenteval= - &Apache::lonnet::get('resevaldata',\@retrieve,$rdomain,$rauth); + &Apache::lonnet::get('nohist_resevaldata',\@retrieve,$rdomain,$rauth); my $already=($currenteval{$prefix.'timestamp'} ne ''); @@ -103,7 +103,7 @@ sub handler {

Thank you for your input!

ENDHEADER $r->print('Storing feedback: '. - &Apache::lonnet::put('resevaldata',\%currenteval,$rdomain,$rauth)); + &Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth)); unless ($already) { $r->print('
Logging first evaluation'); }