loncom/interface/lonevaluate.pm - diff

Return to lonevaluate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2007/11/28 01:41:49	version 1.24, 2007/11/28 01:46:12
Line 33 use Apache::lonnet;	Line 33 use Apache::lonnet;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonenc();	use Apache::lonenc();
use Apache::lonlocal; # must not have ()	use Apache::lonlocal;
use LONCAPA();	use LONCAPA();

sub handler {	sub handler {
Line 100 ENDJS	Line 100 ENDJS

my $start_page =	my $start_page =
&Apache::loncommon::start_page('Evaluate Resource',$js);	&Apache::loncommon::start_page('Evaluate Resource',$js);
$r->print(<<ENDHEADER);	$r->print('
$start_page	'.$start_page.'
<h1>Thank you for your input!</h1>	<h1>'.&mt('Thank you for your input!').'</h1>
ENDHEADER	');
$r->print('Saving feedback: '.	$r->print(&mt('Saving feedback: [_1]',
&Apache::lonnet::put('nohist_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 />'.&mt('Logging first evaluation'));
}	}
$r->print(	$r->print(
'<script type="text/javascript">setTimeout("goback()",2000);</script>'.&Apache::loncommon::end_page());	'<script type="text/javascript">setTimeout("goback()",2000);</script>'.&Apache::loncommon::end_page());
return OK;	return OK;
} else {	} else {
$warning='Please fill out all fields below';	$warning=&mt('Please fill out all fields below');
}	}

}	}