version 1.12, 2004/12/13 23:11:09
|
version 1.13, 2004/12/23 18:38:45
|
Line 1934 sub process_assessment {
|
Line 1934 sub process_assessment {
|
</rankresponse> |
</rankresponse> |
|; |
|; |
} else { |
} else { |
print STDERR "order before is ".join(',',@allorder)."\n"; |
|
@allorder = sort {$a <=> $b} @allorder; |
@allorder = sort {$a <=> $b} @allorder; |
print STDERR "order after is ".join(',',@allorder)."\n"; |
|
$resourcedata{$symb.'options'} = "('".join("','",@allorder)."')"; |
$resourcedata{$symb.'options'} = "('".join("','",@allorder)."')"; |
} |
} |
} elsif ($$settings{$id}{class} eq 'QUESTION_FILLINBLANK') { |
} elsif ($$settings{$id}{class} eq 'QUESTION_FILLINBLANK') { |