--- loncom/homework/hint.pm 2004/03/12 21:06:19 1.49 +++ loncom/homework/hint.pm 2004/03/13 00:36:11 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # implements the tags that control the hints # -# $Id: hint.pm,v 1.49 2004/03/12 21:06:19 albertel Exp $ +# $Id: hint.pm,v 1.50 2004/03/13 00:36:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -177,9 +177,11 @@ sub end_numericalhint { @{$safeeval->varglob('CAPARESPONSE_CHECK_LIST_answer')}=@answer; ($result,my @msgs) = &Apache::run::run($expression,$safeeval); + &Apache::lonxml::debug('msgs are'.join(':',@msgs)); &Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth"); - my ($awards) = split /:/ , $result; - my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards); + my ($awards)=split(/:/,$result); + my (@awards) = split(/,/,$awards); + my ($ad, $msg) = &Apache::inputtags::finalizeawards(\@awards,\@msgs); if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') { push (@Apache::hint::which,$name); } $result=''; } elsif ($target eq 'meta') {