[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.177 and 1.178

version 1.177, 2003/03/11 15:00:47 version 1.178, 2003/03/20 19:10:27
Line 152  sub handler { Line 152  sub handler {
                                              $ENV{'form.ufn'} eq 'default')) {                                               $ENV{'form.ufn'} eq 'default')) {
         $ENV{'form.ufn'}='default_'.$1;          $ENV{'form.ufn'}='default_'.$1;
     }      }
     if (!$ENV{'form.ufn'} || $ENV{'form.ufn'} eq 'default') {  #    if (!$ENV{'form.ufn'} || $ENV{'form.ufn'} eq 'default') {
         $ENV{'form.ufn'}='course_default_'.$sheettype;  #        $ENV{'form.ufn'}='course_default_'.$sheettype;
     }  #    }
     #      #
     # Interactive loading of specific sheet?      # Interactive loading of specific sheet?
     #      #
Line 352  ENDSCRIPT Line 352  ENDSCRIPT
         $oldsheets{'course'} ne $sheet->{'cid'}) {          $oldsheets{'course'} ne $sheet->{'cid'}) {
         undef %oldsheets;          undef %oldsheets;
         undef %loadedcaches;          undef %loadedcaches;
           &Apache::lonspreadsheet::Spreadsheet::clear_package_variables();
     }      }
     $oldsheets{'course'} = $sheet->{'cid'};      $oldsheets{'course'} = $sheet->{'cid'};
     #      #
Line 534  my %defaultsheets; Line 535  my %defaultsheets;
 my %rowlabel_cache;  my %rowlabel_cache;
 #my %oldsheets;  #my %oldsheets;
   
   sub clear_package_variables {
       undef %courseopt;
       undef %useropt;
       undef %parmhash;
       undef %Section;
       undef %expiredates;
       undef $cachedassess;
       undef %cachedstores;
       undef %starttimes;
       undef %usedtimes;
       undef %numbertimes;
       undef $includedir;
       undef %spreadsheets;
       undef %courserdatas;
       undef %userrdatas;
       undef %defaultsheets;
       undef %rowlabel_cache;
   }
   
 sub complete_recalc {  sub complete_recalc {
     my $self = shift;      my $self = shift;
     undef %spreadsheets;      undef %spreadsheets;
Line 751  sub new { Line 771  sub new {
     #      #
     my ($uname,$udom,$stype,$usymb)=@_;      my ($uname,$udom,$stype,$usymb)=@_;
     #      #
       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;
           }
       }
     my $self = {      my $self = {
         uname => $uname,          uname => $uname,
         udom  => $udom,          udom  => $udom,
Removed from v.1.177  
changed lines
  Added in v.1.178

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