version 1.251, 2012/02/10 00:25:53
|
version 1.254, 2013/01/21 06:04:07
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# caparesponse definition |
# caparesponse definition |
# |
# |
# caparesponse.pm,v 1.249.8.2 2012/02/04 20:40:15 foxr |
# $Id$ |
# |
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
Line 456 sub check_submission {
|
Line 456 sub check_submission {
|
my ($result,@msgs) = |
my ($result,@msgs) = |
&Apache::run::run("&caparesponse_check_list()",$safeeval); |
&Apache::run::run("&caparesponse_check_list()",$safeeval); |
&Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0)); |
&Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0)); |
|
|
&Apache::lonxml::debug('msgs are '.join(':',@msgs)); |
&Apache::lonxml::debug('msgs are '.join(':',@msgs)); |
my ($awards)=split(/:/,$result); |
my ($awards)=split(/:/,$result); |
my @awards= split(/,/,$awards); |
my @awards= split(/,/,$awards); |
Line 970 sub make_numerical_bubbles {
|
Line 969 sub make_numerical_bubbles {
|
my $number_of_bubbles = |
my $number_of_bubbles = |
&Apache::response::get_response_param($part.'_'.$id,'numbubbles',8); |
&Apache::response::get_response_param($part.'_'.$id,'numbubbles',8); |
|
|
|
# |
|
# Fixes for BZ 6519 - number of bubbles <= 0 or non-integer. |
|
# |
|
$number_of_bubbles = int($number_of_bubbles + 0.5); |
|
if ($number_of_bubbles <= 0) { |
|
$number_of_bubbles = 8; |
|
} |
|
|
|
|
my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); |
my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); |
my $name = (exists($answer{$tag_internal_answer_name}) |
my $name = (exists($answer{$tag_internal_answer_name}) |
? $tag_internal_answer_name |
? $tag_internal_answer_name |