version 1.213, 2007/04/26 23:15:43
|
version 1.214, 2007/05/22 00:45:43
|
Line 827 sub check_for_answer_errors {
|
Line 827 sub check_for_answer_errors {
|
use Data::Dumper; |
use Data::Dumper; |
&Apache::lonxml::debug("count dump is ".&Dumper(\%counts)); |
&Apache::lonxml::debug("count dump is ".&Dumper(\%counts)); |
my $expected_number_of_inputs = (keys(%counts))[0]; |
my $expected_number_of_inputs = (keys(%counts))[0]; |
if ( $expected_number_of_inputs != scalar(@Apache::inputtags::inputlist)) { |
if ( $expected_number_of_inputs > 0 |
|
&& $expected_number_of_inputs != scalar(@Apache::inputtags::inputlist)) { |
&Apache::lonxml::error(&mt("Expected [_1] input fields, but there were only [_2] seen.", |
&Apache::lonxml::error(&mt("Expected [_1] input fields, but there were only [_2] seen.", |
$expected_number_of_inputs, |
$expected_number_of_inputs, |
scalar(@Apache::inputtags::inputlist))); |
scalar(@Apache::inputtags::inputlist))); |