--- loncom/interface/Attic/lonspreadsheet.pm	2001/10/16 09:53:50	1.66
+++ loncom/interface/Attic/lonspreadsheet.pm	2001/10/16 20:50:28	1.68
@@ -1049,7 +1049,7 @@ sub parmval {
 # ----------------------------------------------------- Cascading lookup scheme
        my $rwhat=$what;
        $what=~s/^parameter\_//;
-       $what=~s/\_/\./;
+       $what=~s/\_([^\_]+)$/\.$1/;
 
        my $symbparm=$symb.'.'.$what;
        my $mapparm=$mapname.'___(all).'.$what;
@@ -1247,7 +1247,6 @@ sub updatestudentassesssheet {
                               $display.=
 			         &Apache::lonnet::metadata($srcf,$key.'.name');
                           }
-                          $key=~s/\W/\_/g;
                           $display.='<br>'.$key;
                           $allkeys{$key}=$display;
 		       }
@@ -1567,7 +1566,6 @@ sub loadassessment {
 	       } else {
 		  my $key=$f{$_};
                   my $ckey=$key;
-                  $ckey=~s/\W/\_/g;
                   $key=~s/^stores\_/resource\./;
                   $key=~s/\_/\./;
  	          $c{$_}=$returnhash{$key};