[BACK]Return to lonspreadsheet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.11 and 1.12

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>