loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.2, 2002/09/23 07:07:02	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);