loncom/interface/lonevaluate.pm - diff

Return to lonevaluate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2001/12/21 20:42:11	version 1.7, 2002/03/28 21:38:53
Line 33	Line 33
#	#
# 3/1/1 Gerd Kortemeyer)	# 3/1/1 Gerd Kortemeyer)
#	#
# 3/1,12/6,12/12,12/21 Gerd Kortemeyer	# 3/1,12/6,12/12,12/21,12/22 Gerd Kortemeyer
#	#
package Apache::lonevaluate;	package Apache::lonevaluate;

Line 47 sub handler {	Line 47 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
my $feedurl=$ENV{'form.postdata'};	my $feedurl=$ENV{'form.postdata'};
$feedurl=~s/^http\:\/\///;	$feedurl=~s/^http\:\/\///;
$feedurl=~s/^$ENV{'SERVER_NAME'}//;	$feedurl=~s/^$ENV{'SERVER_NAME'}//;
Line 57 sub handler {	Line 58 sub handler {

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

my $prefix=$ENV{'user.name.'}.'@'.$ENV{'user.domain'}.'___'.	my $prefix=$ENV{'user.name'}.'@'.$ENV{'user.domain'}.'___'.
$feedurl.'___';	$feedurl.'___';

my @items=('correct','helpful','depth','clear','technical','comments',	my @items=('correct','helpful','depth','clear','technical','comments',