version 1.6, 2005/10/18 15:33:55
|
version 1.9, 2007/09/11 19:24:14
|
Line 74 sub end_externalresponse {
|
Line 74 sub end_externalresponse {
|
$part,$id); |
$part,$id); |
%Apache::loncapagrade::results=(); |
%Apache::loncapagrade::results=(); |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |
if ($res->{_rc} != '200') { |
if ($res->is_error()) { |
$Apache::loncapagrade::results{'awarddetail'}='ERROR'; |
$Apache::loncapagrade::results{'awarddetail'}='ERROR'; |
} else { |
} else { |
&Apache::lonxml::register('Apache::loncapagrade', |
&Apache::lonxml::register('Apache::loncapagrade', |
('loncapagrade')); |
('loncapagrade')); |
|
@Apache::scripttag::parser_env = @_; |
my $result=&Apache::scripttag::xmlparse($res->{_content}); |
my $result=&Apache::scripttag::xmlparse($res->{_content}); |
&Apache::lonxml::debug("Got a result of :$result:"); |
&Apache::lonxml::debug("Got a result of :$result:"); |
} |
} |
Line 97 sub end_externalresponse {
|
Line 98 sub end_externalresponse {
|
} |
} |
} |
} |
} |
} |
|
if ($target eq 'web') { |
|
&Apache::response::setup_prior_tries_hash(\&format_prior_response); |
|
} |
|
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter($increment); |
&Apache::lonxml::increment_counter($increment); |
Line 105 sub end_externalresponse {
|
Line 110 sub end_externalresponse {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub format_prior_response { |
|
my ($mode,$answer) =@_; |
|
return '<span class="LC_prior_external">'. |
|
&HTML::Entities::encode($answer,'"<>&').'</span>'; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|