[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.160.2.2 and 1.162

version 1.160.2.2, 2003/03/14 21:36:42 version 1.162, 2003/01/13 21:52:11
Line 1882  sub makenewsheet { Line 1882  sub makenewsheet {
     $sheet->{'mapid'} = $ENV{'form.mapid'};      $sheet->{'mapid'} = $ENV{'form.mapid'};
     $sheet->{'resid'} = $ENV{'form.resid'};      $sheet->{'resid'} = $ENV{'form.resid'};
     $sheet->{'cid'}   = $ENV{'request.course.id'};      $sheet->{'cid'}   = $ENV{'request.course.id'};
     if (! exists($Section{$uname.':'.$udom})) {  
         my $classlist = &Apache::loncoursedata::get_classlist();  
         foreach my $student (keys(%$classlist)) {  
             my ($studentDomain,$studentName,undef,undef,undef,$studentSection,  
                 undef,undef)   =   @{$classlist->{$student}};  
             $Section{$studentName.':'.$studentDomain} = $studentSection;  
         }  
     }  
     $sheet->{'csec'}  = $Section{$uname.':'.$udom};      $sheet->{'csec'}  = $Section{$uname.':'.$udom};
     $sheet->{'coursefilename'}   = $ENV{'request.course.fn'};      $sheet->{'coursefilename'}   = $ENV{'request.course.fn'};
     $sheet->{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      $sheet->{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
Line 2102  sub parmval { Line 2094  sub parmval {
     # second, check map parms      # second, check map parms
     my $thisparm = $parmhash{$symbparm};      my $thisparm = $parmhash{$symbparm};
     return $thisparm if (defined($thisparm));      return $thisparm if (defined($thisparm));
   
     # first, check default      # first, check default
     $thisparm = &Apache::lonnet::metadata($fn,$rwhat.'.default');      return &Apache::lonnet::metadata($fn,$rwhat.'.default');
     return $thisparm if (defined($thisparm));  
   
     #Cascade Up  
     my $space=$what;  
     $space=~s/\.\w+$//;  
     if ($space ne '0') {  
  my @parts=split(/_/,$space);  
  my $id=pop(@parts);  
  my $part=join('_',@parts);  
  if ($part eq '') { $part='0'; }  
  my $newwhat=$rwhat;  
  $newwhat=~s/\Q$space\E/$part/;  
  my $partgeneral=&parmval($newwhat,$symb,$uname,$udom,$csec);  
  if (defined($partgeneral)) { return $partgeneral; }  
     }  
   
     #nothing defined  
     return '';  
 }  }
   
   
Line 2444  sub loadstudent{ Line 2417  sub loadstudent{
     my %formulas=&getformulas($sheet);      my %formulas=&getformulas($sheet);
     $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};      $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};
     # Get ALL the student preformance data      # Get ALL the student preformance data
     my @tmp = &Apache::lonnet::dump($sheet->{'cid'},      my @tmp = &Apache::lonnet::dumpcurrent($sheet->{'cid'},
                                     $sheet->{'udom'},  #    my @tmp = &Apache::lonnet::dump($sheet->{'cid'},
                                     $sheet->{'uname'},                                             $sheet->{'udom'},
                                     undef);                                             $sheet->{'uname'},
     if ($tmp[0] !~ /^error:/) {                                             undef);
       if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {
         %cachedstores = @tmp;          %cachedstores = @tmp;
   #        &Apache::lonnet::logthis("-------------------------------------");
   #        foreach (keys(%cachedstores)) {
   #            &Apache::lonnet::logthis("data for ".$_);
   #        }
   #        &Apache::lonnet::logthis("-------------------------------------");
     }      }
     undef @tmp;      undef @tmp;
     #       # 
Line 2578  sub loadassessment { Line 2557  sub loadassessment {
         #          #
         # get data out of the dumped stores          # get data out of the dumped stores
         #           # 
         my $version=$cachedstores{'version:'.$symb};  #        my $version=$cachedstores{'version:'.$symb};
         my $scope;  #        my $scope;
         for ($scope=1;$scope<=$version;$scope++) {  #        for ($scope=1;$scope<=$version;$scope++) {
             foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) {  #            foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) {
                 $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_};  #                $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_};
             }   #            } 
   #        }
           if (exists($cachedstores{$symb})) {
               %returnhash = %{$cachedstores{$symb}};
           } else {
   #            &Apache::lonnet::logthis("No data for ".$symb);
               %returnhash = ();
         }          }
     } else {      } else {
         #          #
         # restore individual          # restore individual
         #          #
         %returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);          %returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);
         for (my $version=1;$version<=$returnhash{'version'};$version++) {  
             foreach (split(/\:/,$returnhash{$version.':keys'})) {  
                 $returnhash{$_}=$returnhash{$version.':'.$_};  
             }   
         }  
     }      }
     #      #
     # returnhash now has all stores for this resource      # returnhash now has all stores for this resource
Line 3239  ENDSCRIPT Line 3219  ENDSCRIPT
         $oldsheets{'course'} ne $sheet->{'cid'}) {          $oldsheets{'course'} ne $sheet->{'cid'}) {
         undef %oldsheets;          undef %oldsheets;
         undef %loadedcaches;          undef %loadedcaches;
         undef %Section;  
     }      }
     $oldsheets{'course'} = $sheet->{'cid'};      $oldsheets{'course'} = $sheet->{'cid'};
     #      #
Removed from v.1.160.2.2  
changed lines
  Added in v.1.162

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