Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.126, 2008/03/05 15:31:57 | version 1.127, 2008/03/05 16:06:39 |
---|---|
Line 319 sub caparesponse_check_list { | Line 319 sub caparesponse_check_list { |
$unit=~s/\s//; | $unit=~s/\s//; |
if ($unit ne '') { | if ($unit ne '') { |
foreach my $response (@$responses) { | foreach my $response (@$responses) { |
foreach my $element (@$response) { | foreach my $element (@$response) { |
$element =~ s/\s//g; | |
$element .= " $unit"; | $element .= " $unit"; |
} | } |
} | } |