--- loncom/interface/loncommon.pm	2001/12/21 17:03:17	1.18
+++ loncom/interface/loncommon.pm	2001/12/21 17:06:56	1.19
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.18 2001/12/21 17:03:17 www Exp $
+# $Id: loncommon.pm,v 1.19 2001/12/21 17:06:56 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -167,9 +167,9 @@ sub get_previous_attempt {
       my %lasthash=();
       my $version;
       for ($version=1;$version<=$returnhash{'version'};$version++) {
-        map {
+        foreach (sort(split(/\:/,$returnhash{$version.':keys'}))) {
 	  $lasthash{$_}=$returnhash{$version.':'.$_};
-        } sort(split(/\:/,$returnhash{$version.':keys'}));
+        }
       }
       $prevattempts='<table border=2></tr><th>History</th>';
       foreach (sort(keys %lasthash)) {