--- loncom/homework/caparesponse/caparesponse.pm 2007/04/17 23:25:24 1.212 +++ loncom/homework/caparesponse/caparesponse.pm 2007/06/05 22:30:05 1.215 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # caparesponse definition # -# $Id: caparesponse.pm,v 1.212 2007/04/17 23:25:24 albertel Exp $ +# $Id: caparesponse.pm,v 1.215 2007/06/05 22:30:05 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -392,9 +392,6 @@ sub setup_capa_args { sub setup_capa_response { my ($args_ref,$response) = @_; - use Data::Dumper; - &Apache::lonxml::debug("response dump is ".&Dumper($response)); - if (ref($response)) { $$args_ref{'response'}=dclone($response); } else { @@ -465,7 +462,7 @@ sub add_in_tag_answer { my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval, $response_level); &Apache::lonxml::debug('answer is'.join(':',@answer)); - if (@answer && defined($answer[0])) { + if (@answer && $answer[0] =~ /\S/) { $answer{$tag_internal_answer_name}= {'type' => 'ordered', 'answers' => [\@answer] }; } @@ -794,7 +791,15 @@ sub end_numericalresponse { sub format_prior_response_numerical { my ($mode,$answer) = @_; - #FIXME needs to support multianswer modes + if (ref($answer)) { + my $result = '
'. + &HTML::Entities::encode($element,'"<>&').' | '; + } + $result.='