loncom/interface/lonevaluate.pm - diff

Return to lonevaluate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2002/03/29 15:15:54	version 1.9, 2002/08/09 19:49:30
Line 67 sub handler {	Line 67 sub handler {
my @retrieve=map{ $prefix.$_ } @items;	my @retrieve=map{ $prefix.$_ } @items;

my %currenteval=	my %currenteval=
&Apache::lonnet::get('resevaldata',\@retrieve,$rdomain,$rauth);	&Apache::lonnet::get('nohist_resevaldata',\@retrieve,$rdomain,$rauth);

my $already=($currenteval{$prefix.'timestamp'} ne '');	my $already=($currenteval{$prefix.'timestamp'} ne '');

Line 103 sub handler {	Line 103 sub handler {
<h1>Thank you for your input!</h1>	<h1>Thank you for your input!</h1>
ENDHEADER	ENDHEADER
$r->print('Storing feedback: '.	$r->print('Storing feedback: '.
&Apache::lonnet::put('resevaldata',\%currenteval,$rdomain,$rauth));	&Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth));
unless ($already) {	unless ($already) {
$r->print('<br>Logging first evaluation');	$r->print('<br>Logging first evaluation');
}	}