--- loncom/interface/loncommon.pm	2001/07/26 15:50:25	1.2
+++ loncom/interface/loncommon.pm	2001/07/30 22:24:34	1.4
@@ -15,37 +15,30 @@ sub get_previous_attempt {
   my ($symb,$username,$domain,$course)=@_;
   my $prevattempts='';
   if ($symb) {
-    my $answer=&Apache::lonnet::reply(
-				      "restore:".$domain.':'.$username.':'.$course.':'.
-				      &Apache::lonnet::escape($symb));
-    my %returnhash=();
-    map {
-      my ($name,$value)=split(/\=/,$_);
-      $returnhash{&Apache::lonnet::unescape($name)}=
-	&Apache::lonnet::unescape($value);
-    } split(/\&/,$answer);
+    my (%returnhash)=
+      &Apache::lonnet::restore($symb,$course,$domain,$username);
     if ($returnhash{'version'}) {
       my %lasthash=();
       my $version;
       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;
+        } sort(keys %lasthash);
       }
       $prevattempts.='</tr><tr><th>Current</th>';
       map {
         $prevattempts.='<td>'.$lasthash{$_}.'</td>';
-      } keys %lasthash;
+      } sort(keys %lasthash);
       $prevattempts.='</tr></table>';
     } else {
       $prevattempts='Nothing submitted - no attempts.';