|
version 1.125, 2008/03/03 19:14:51
|
version 1.126, 2008/03/05 15:31:57
|
|
Line 166 sub caparesponse_check {
|
Line 166 sub caparesponse_check {
|
| $response=~s/[\s,]//g; |
$response=~s/[\s,]//g; |
| } |
} |
| if ($type eq 'float' && $unit=~/\$/) { |
if ($type eq 'float' && $unit=~/\$/) { |
| if ($response!~/^\$/) { return ('NO_UNIT', undef); } |
if ($response!~/^\$|\$$/) { return ('NO_UNIT', undef); } |
| $response=~s/\$//g; |
$response=~s/\$//g; |
| } |
} |
| if ($type eq 'float' && $unit=~/\,/ && (&check_commas($response)<0)) { |
if ($type eq 'float' && $unit=~/\,/ && (&check_commas($response)<0)) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to default_homework.lcpm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework