Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.160.2.1 and 1.160.2.3

version 1.160.2.1, 2003/03/14 21:34:04 version 1.160.2.3, 2003/03/14 22:54:26
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 2109  sub parmval { Line 2117  sub parmval {
  if ($part eq '') { $part='0'; }   if ($part eq '') { $part='0'; }
  my $newwhat=$rwhat;   my $newwhat=$rwhat;
  $newwhat=~s/\Q$space\E/$part/;   $newwhat=~s/\Q$space\E/$part/;
  my $partgeneral=&parmval($newwhat,$symb,$uname,$udom,$csec);   my $partgeneral=&parmval($newwhat,$sheet);
  if (defined($partgeneral)) { return $partgeneral; }   if (defined($partgeneral)) { return $partgeneral; }
     }      }
   
Line 3231  ENDSCRIPT Line 3239  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.1  
changed lines
  Added in v.1.160.2.3


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