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; |