version 1.147, 2010/01/06 16:59:30
|
version 1.148, 2010/10/14 04:59:08
|
Line 343 sub caparesponse_check_list {
|
Line 343 sub caparesponse_check_list {
|
if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) { |
if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) { |
$appendunit=$answerunit; |
$appendunit=$answerunit; |
} |
} |
$element .= " $appendunit"; |
if ($appendunit ne '') { |
|
$element .= " $appendunit"; |
|
} |
&LONCAPA_INTERNAL_DEBUG("Made response element :$element:"); |
&LONCAPA_INTERNAL_DEBUG("Made response element :$element:"); |
} |
} |
} |
} |