loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.3, 2003/04/08 02:40:56	version 1.4, 2005/04/07 06:56:21
Line 30 package Apache::externalresponse;	Line 30 package Apache::externalresponse;
use strict;	use strict;
use HTTP::Request::Common;	use HTTP::Request::Common;
use Apache::loncapagrade;	use Apache::loncapagrade;
	use Apache::lonnet;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::externalresponse',('externalresponse'));	&Apache::lonxml::register('Apache::externalresponse',('externalresponse'));
Line 50 sub end_externalresponse {	Line 51 sub end_externalresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'grade') {	if ($target eq 'grade') {
if ( defined $ENV{'form.submitted'}) {	if ( defined $env{'form.submitted'}) {
my $id = $Apache::inputtags::response['-1'];	my $id = $Apache::inputtags::response['-1'];
my $response = $ENV{'form.HWVAL_'.$id};	my $response = $env{'form.HWVAL_'.$id};
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval);	my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval);
my $answer = &Apache::lonxml::get_param('answer',$parstack,$safeeval);	my $answer = &Apache::lonxml::get_param('answer',$parstack,$safeeval);