--- loncom/interface/Attic/lonspreadsheet.pm	2001/10/17 18:35:17	1.69
+++ loncom/interface/Attic/lonspreadsheet.pm	2001/10/17 21:11:22	1.70
@@ -1568,7 +1568,7 @@ sub loadassessment {
 		  my $key=$f{$_};
                   my $ckey=$key;
                   $key=~s/^stores\_/resource\./;
-                  $key=~s/\_([^\_]+)$/\.$1/;
+                  $key=~s/\_/\./g;
  	          $c{$_}=$returnhash{$key};
                   $c{$ckey}=$returnhash{$key};
 	       }