--- loncom/homework/templates/CustomResponse.problem	2006/07/18 17:24:39	1.1
+++ loncom/homework/templates/CustomResponse.problem	2010/08/20 03:52:20	1.2.8.1
@@ -3,11 +3,11 @@
   <customresponse answerdisplay="something near 90 or -90">
     <answer type="loncapa/perl">
 # We do not want a vector
-if ($submission=~/\,/) { return 'ANS_CNT_NOT_MATCH'; }
+if ($submission=~/\,/) { return 'EXTRA_ANSWER'; }
 # No units needed
 if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; }
 # Need a numerical answer here
-if ($submission!~/^\d+$/) { return 'WANTED_NUMERIC'; }
+if ($submission!~/^[\d\.\-]+$/) { return 'WANTED_NUMERIC'; }
 $difference=abs(90-abs($submission));
 if ($difference==0) { return 'EXACT_ANS'; }
 if ($difference < 0.001) { return 'APPROX_ANS'; }