version 1.23, 2013/08/22 13:58:21
|
version 1.24, 2013/09/11 10:25:50
|
Line 187 sub end_externalresponse {
|
Line 187 sub end_externalresponse {
|
$env{'form.HWFILETOOBIG'.$part.'_'.$id}; |
$env{'form.HWFILETOOBIG'.$part.'_'.$id}; |
my $portfiles = $env{'form.HWPORT'.$jspart.'_'.$id}; |
my $portfiles = $env{'form.HWPORT'.$jspart.'_'.$id}; |
my @deletions = &Apache::loncommon::get_env_multiple('form.HWFILE'.$jspart.'_'.$id.'_delete'); |
my @deletions = &Apache::loncommon::get_env_multiple('form.HWFILE'.$jspart.'_'.$id.'_delete'); |
my ($is_submit,$was_draft); |
my ($is_submit,$was_draft,$externalgrade); |
if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') { |
if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') { |
$is_submit = 1; |
$is_submit = 1; |
} |
} |
Line 237 sub end_externalresponse {
|
Line 237 sub end_externalresponse {
|
{ $akey => $response },$adom,$aname); |
{ $akey => $response },$adom,$aname); |
} |
} |
} |
} |
|
($award eq 'DRAFT') ? ($externalgrade = 0) : ($externalgrade =1); |
} |
} |
|
if($externalgrade){ |
my $response = &Apache::response::getresponse(); |
my $response = &Apache::response::getresponse(); |
|
|
my $filesresults=0; |
my $filesresults=0; |
Line 263 sub end_externalresponse {
|
Line 265 sub end_externalresponse {
|
&Apache::lonnet::logthis("Currently: ".join("\n",sort(keys(%currently_turned_in)))); |
&Apache::lonnet::logthis("Currently: ".join("\n",sort(keys(%currently_turned_in)))); |
&Apache::lonnet::logthis("File flag: ".$filesresults); |
&Apache::lonnet::logthis("File flag: ".$filesresults); |
&Apache::lonnet::logthis("Links String: ".$filelinks); |
&Apache::lonnet::logthis("Links String: ".$filelinks); |
if (( $response =~ /[^\s]/) || $filesresults ) { |
if ($filesresults || ( $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); |
my %form = &Apache::lonxml::get_param_var('form',$parstack,$safeeval); |
my %form = &Apache::lonxml::get_param_var('form',$parstack,$safeeval); |
Line 300 sub end_externalresponse {
|
Line 302 sub end_externalresponse {
|
$Apache::lonhomework::results{"resource.$part.$id.awarded"}= |
$Apache::lonhomework::results{"resource.$part.$id.awarded"}= |
1.*$Apache::loncapagrade::results{"awarded"}; |
1.*$Apache::loncapagrade::results{"awarded"}; |
} |
} |
|
my $handbackurl = $Apache::loncapagrade::results{'handbackurl'} |
|
&Apache::lonnet::logthis("handbackurl: ". $Apache::loncapagrade::results{'handbackurl'}); |
&Apache::lonxml::debug("response of"); |
&Apache::lonxml::debug("response of"); |
&Apache::lonhomework::showhash(%$res); |
&Apache::lonhomework::showhash(%$res); |
&Apache::lonxml::debug("capagrade of"); |
&Apache::lonxml::debug("capagrade of"); |
Line 308 sub end_externalresponse {
|
Line 312 sub end_externalresponse {
|
&Apache::lonhomework::showhash(%Apache::lonhomework::results); |
&Apache::lonhomework::showhash(%Apache::lonhomework::results); |
} |
} |
} |
} |
|
} |
} |
} |
if ($target eq 'web') { |
if ($target eq 'web') { |
&Apache::response::setup_prior_tries_hash(\&Apache::essayresponse::format_prior_response, |
&Apache::response::setup_prior_tries_hash(\&Apache::essayresponse::format_prior_response, |