Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.140, 2008/09/13 02:08:32 | version 1.141, 2008/09/27 07:26:45 |
---|---|
Line 320 sub caparesponse_check_list { | Line 320 sub caparesponse_check_list { |
$element =~ s/\s//g; | $element =~ s/\s//g; |
} | } |
my $appendunit=$unit; | my $appendunit=$unit; |
if ($unit=~/\%/) { | if (($unit=~/\%/) && ($answerunit ne '%')) { |
$element=$element/100; | $element=$element/100; |
$appendunit=~s/\%//; | $appendunit=~s/\%//; |
} | } |