loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.1, 2002/01/30 17:30:06	version 1.3, 2003/04/08 02:40:56
Line 52 sub end_externalresponse {	Line 52 sub end_externalresponse {
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);
Line 60 sub end_externalresponse {	Line 60 sub end_externalresponse {
$form{'LONCAPA_student_response'}=$response;	$form{'LONCAPA_student_response'}=$response;
$form{'LONCAPA_correct_answer'}=$answer;	$form{'LONCAPA_correct_answer'}=$answer;
$form{'LONCAPA_language'}=	$form{'LONCAPA_language'}=
&Apache::lonnet::metadata($ENV{'RQUEST_URI'},'language');	&Apache::lonnet::metadata($ENV{'REQUEST_URI'},'language');
&Apache::lonxml::debug("Asking $url, with:");	&Apache::lonxml::debug("Asking $url, with:");
&Apache::lonhomework::showhash(%form);	&Apache::lonhomework::showhash(%form);
my $ua = LWP::UserAgent->new;	my $ua = LWP::UserAgent->new;