--- loncom/interface/loncommon.pm	2001/07/26 16:00:24	1.3
+++ loncom/interface/loncommon.pm	2001/09/13 19:59:33	1.5
@@ -23,22 +23,34 @@ sub get_previous_attempt {
       for ($version=1;$version<=$returnhash{'version'};$version++) {
         map {
 	  $lasthash{$_}=$returnhash{$version.':'.$_};
-        } split(/\:/,$returnhash{$version.':keys'});
+        } sort(split(/\:/,$returnhash{$version.':keys'}));
       }
       $prevattempts='<table border=2></tr><th>History</th>';
       map {
         $prevattempts.='<th>'.$_.'</th>';
-      } keys %lasthash;
+      } sort(keys %lasthash);
       for ($version=1;$version<=$returnhash{'version'};$version++) {
         $prevattempts.='</tr><tr><th>Attempt '.$version.'</th>';
         map {
-	  $prevattempts.='<td>'.$returnhash{$version.':'.$_}.'</td>';   
-        } keys %lasthash;
+	  my $value;
+	  if ($_ =~ /timestamp/) {
+	    $value=scalar(localtime($returnhash{$version.':'.$_}));
+	  } else {
+	    $value=$returnhash{$version.':'.$_};
+	  }
+	  $prevattempts.='<td>'.$value.'</td>';   
+        } sort(keys %lasthash);
       }
       $prevattempts.='</tr><tr><th>Current</th>';
       map {
-        $prevattempts.='<td>'.$lasthash{$_}.'</td>';
-      } keys %lasthash;
+	my $value;
+	if ($_ =~ /timestamp/) {
+	  $value=scalar(localtime($lasthash{$_}));
+	} else {
+	  $value=$lasthash{$_};
+	}
+	$prevattempts.='<td>'.$value.'</td>';
+      } sort(keys %lasthash);
       $prevattempts.='</tr></table>';
     } else {
       $prevattempts='Nothing submitted - no attempts.';