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'); |
} |
} |