version 1.145, 2006/07/18 18:52:57
|
version 1.146, 2006/08/01 14:41:46
|
Line 403 sub end_customresponse {
|
Line 403 sub end_customresponse {
|
my $id=$Apache::inputtags::response[-1]; |
my $id=$Apache::inputtags::response[-1]; |
if ( $target eq 'grade' && &Apache::response::submitted() ) { |
if ( $target eq 'grade' && &Apache::response::submitted() ) { |
my $response = &Apache::response::getresponse(); |
my $response = &Apache::response::getresponse(); |
if ( $response =~ /[^\s]/ && |
if ($Apache::lonhomework::type eq 'exam' || |
$Apache::response::custom_answer_type eq 'loncapa/perl') { |
&Apache::response::submitted('scantron')) { |
|
&Apache::response::scored_response($part,$id); |
|
} elsif ( $response =~ /[^\s]/ && |
|
$Apache::response::custom_answer_type eq 'loncapa/perl') { |
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
&Apache::lonxml::default_homework_load($safeeval); |
&Apache::lonxml::default_homework_load($safeeval); |
} |
} |
Line 429 sub end_customresponse {
|
Line 432 sub end_customresponse {
|
$error; |
$error; |
} |
} |
} |
} |
|
} elsif ( $target eq 'answer') { |
|
$result = &Apache::response::answer_header('customresponse'); |
|
my $answer = &Apache::lonxml::get_param('answerdisplay',$parstack, |
|
$safeeval); |
|
if ($env{'form.answer_output_mode'} ne 'tex') { |
|
$answer = '<b>'.$answer.'</b>'; |
|
} |
|
$result .= &Apache::response::answer_part('customresponse',$answer); |
|
$result .= &Apache::response::answer_footer('customresponse'); |
|
} |
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
|
$target eq 'tex' || $target eq 'analyze') { |
|
&Apache::lonxml::increment_counter(&Apache::response::repetition()); |
} |
} |
pop(@Apache::lonxml::namespace); |
pop(@Apache::lonxml::namespace); |
&Apache::lonxml::deregister('Apache::response',('answer')); |
&Apache::lonxml::deregister('Apache::response',('answer')); |