--- loncom/homework/hint.pm 2004/08/24 16:01:18 1.56 +++ loncom/homework/hint.pm 2004/11/19 22:26:37 1.57 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # implements the tags that control the hints # -# $Id: hint.pm,v 1.56 2004/08/24 16:01:18 albertel Exp $ +# $Id: hint.pm,v 1.57 2004/11/19 22:26:37 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -267,7 +267,14 @@ sub end_stringhint { my ($ad,$msg); if ($type eq 're' ) { ${$safeeval->varglob('LONCAPA::response')}=$response; - $result = &Apache::run::run('return $LONCAPA::response=~m'.$answer,$safeeval); + my $compare='='; + if ($answer=~/^\s*NOT\s*/) { + $answer=~s/^\s*NOT\s*//; + $compare='!'; + } + my $test='$LONCAPA::response'.$compare.'~m'.$answer; + &Apache::lonxml::debug("test $test"); + $result = &Apache::run::run("return $test",$safeeval); &Apache::lonxml::debug("current $response"); &Apache::lonxml::debug("current $answer"); $ad = ($result) ? 'APPROX_ANS' : 'INCORRECT';