--- loncom/interface/Attic/lonspreadsheet.pm	2000/12/11 15:33:58	1.11
+++ loncom/interface/Attic/lonspreadsheet.pm	2000/12/11 16:51:12	1.12
@@ -567,6 +567,9 @@ sub parmval {
 
     my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);
 # ----------------------------------------------------- Cascading lookup scheme
+       my $rwhat=$what;
+       $what=~s/^parameter\_//;
+       $what=~s/\_/\./;
 
        my $symbparm=$symb.'.'.$what;
        my $mapparm=$mapname.'___(all).'.$what;
@@ -587,6 +590,7 @@ sub parmval {
             $ENV{'request.course.id'}.'.'.$symbparm;
        my $courselevelm=
             $ENV{'request.course.id'}.'.'.$mapparm;
+
 # ---------------------------------------------------------- fourth, check user
       
       if ($uname) { 
@@ -624,7 +628,7 @@ sub parmval {
 
 # -------------------------------------------------------- first, check default
 
-       return &Apache::lonnet::metadata($fn,$what.'.default');
+       return &Apache::lonnet::metadata($fn,$rwhat.'.default');
         
 }
 
@@ -829,7 +833,9 @@ sub selectbox {
     return $selout.'</select>';
 }
 
-# ---------------------------------------------------------------- Main handler
+# ==================================== Sub handler to get export of assessments
+
+# ================================================================ Main handler
 
 sub handler {
     my $r=shift;