--- loncom/interface/statistics/lonproblemanalysis.pm	2002/08/14 16:18:55	1.7
+++ loncom/interface/statistics/lonproblemanalysis.pm	2002/08/14 20:42:49	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemanalysis.pm,v 1.7 2002/08/14 16:18:55 stredwic Exp $
+# $Id: lonproblemanalysis.pm,v 1.8 2002/08/14 20:42:49 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -231,10 +231,12 @@ sub OptionResponseTable {
     my @optionResponses=split(':::', $optionResponses);
     my %partCount;
     my %sequences;
+    my @orderedSequences=();
     foreach(@optionResponses) {
         my ($sequence, $problemId, $part, undef)=split(':',$_);
         $partCount{$problemId.':'.$part}++;
         if(!defined($sequences{$sequence})) {
+            push(@orderedSequences, $sequence);
             $sequences{$sequence} = $_;
         } else {
             $sequences{$sequence} .= ':::'.$_;
@@ -243,7 +245,7 @@ sub OptionResponseTable {
 
     my $Str = '';
 
-    foreach my $sequence (sort(keys(%sequences))) {
+    foreach my $sequence (@orderedSequences) {
         my @optionProblems = split(':::', $sequences{$sequence});
 
         $Str .= '<b>'.$cache->{$sequence.':title'}.'</b>'."\n";