version 1.119, 2006/11/01 23:24:52
|
version 1.120, 2006/11/10 17:45:52
|
Line 303 sub caparesponse_check_list {
|
Line 303 sub caparesponse_check_list {
|
|
|
my $num_input_lines = |
my $num_input_lines = |
scalar(@{$LONCAPA::CAPAresponse_answer->{'answers'}}); |
scalar(@{$LONCAPA::CAPAresponse_answer->{'answers'}}); |
if ($type ne '' |
|
&& $num_input_lines > 1) { |
if ($type ne '' ) { |
if (scalar(@$responses) < $num_input_lines) { |
if (scalar(@$responses) < $num_input_lines) { |
return 'MISSING_ANSWER'; |
return 'MISSING_ANSWER'; |
} |
} |