![]() ![]() | ![]() |
version 1.44, 2005/01/31 22:00:40 | version 1.45, 2005/03/15 16:55:22 |
---|---|
Line 177 sub displayanswers { | Line 177 sub displayanswers { |
sub check_response_order { | sub check_response_order { |
my (%responsehash)=@_; | my (%responsehash)=@_; |
my @order=sort(values(%responsehash)); | my @order=sort( {$a <=> $b} values(%responsehash)); |
my $lastvalue=0; | my $lastvalue=0; |
my $expected=1; | my $expected=1; |
my $malformed=0; | my $malformed=0; |