loncom/interface/lonevaluate.pm - diff

Return to lonevaluate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2006/03/19 22:22:49	version 1.21, 2007/05/02 01:33:49
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 LONCAPA();

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 53 sub handler {	Line 54 sub handler {
my $title=&Apache::lonnet::gettitle($feedurl);	my $title=&Apache::lonnet::gettitle($feedurl);
my $showurl=&Apache::lonenc::check_encrypt($feedurl);	my $showurl=&Apache::lonenc::check_encrypt($feedurl);

my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//);	my ($rdomain,$rauth)=($feedurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\//);

my $prefix=$env{'user.name'}.'@'.$env{'user.domain'}.'___'.	my $prefix=$env{'user.name'}.'@'.$env{'user.domain'}.'___'.
$feedurl.'___';	$feedurl.'___';
Line 102 ENDJS	Line 103 ENDJS
$start_page	$start_page
<h1>Thank you for your input!</h1>	<h1>Thank you for your input!</h1>
ENDHEADER	ENDHEADER
$r->print('Storing feedback: '.	$r->print('Saving feedback: '.
&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 />Logging first evaluation');