--- loncom/homework/caparesponse/caparesponse.pm 2004/03/12 18:41:43 1.140 +++ loncom/homework/caparesponse/caparesponse.pm 2004/03/12 21:06:19 1.141 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # caparesponse definition # -# $Id: caparesponse.pm,v 1.140 2004/03/12 18:41:43 albertel Exp $ +# $Id: caparesponse.pm,v 1.141 2004/03/12 21:06:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -159,7 +159,8 @@ sub end_numericalresponse { &Apache::lonxml::debug('answer is'.join(':',@answer)); @{$safeeval->varglob('CAPARESPONSE_CHECK_LIST_answer')}=@answer; - $result = &Apache::run::run($expression,$safeeval); + ($result,my @msgs) = &Apache::run::run($expression,$safeeval); + &Apache::lonxml::debug('msgs are'.join(':',@msgs)); my ($awards) = split /:/ , $result; ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards); &Apache::lonxml::debug("$expression");