[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.112 and 1.113

version 1.112, 2002/09/27 20:40:19 version 1.113, 2002/09/30 18:03:39
Line 62  use GDBM_File; Line 62  use GDBM_File;
 use HTML::TokeParser;  use HTML::TokeParser;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 #  #
   # Caches for coursewide information 
   #
   my %Section;
   
   #
 # Caches for previously calculated spreadsheets  # Caches for previously calculated spreadsheets
 #  #
   
Line 1467  sub makenewsheet { Line 1472  sub makenewsheet {
     $sheetdata{'sheettype'} = $stype;      $sheetdata{'sheettype'} = $stype;
     $sheetdata{'usymb'} = $usymb;      $sheetdata{'usymb'} = $usymb;
     $sheetdata{'cid'}   = $ENV{'request.course.id'};      $sheetdata{'cid'}   = $ENV{'request.course.id'};
     $sheetdata{'csec'}  = &Apache::lonnet::usection      $sheetdata{'csec'}  = $Section{$uname.':'.$udom};
                                ($udom,$uname,$ENV{'request.course.id'});  
     $sheetdata{'coursefilename'}   = $ENV{'request.course.fn'};      $sheetdata{'coursefilename'}   = $ENV{'request.course.fn'};
     $sheetdata{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      $sheetdata{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
     $sheetdata{'cdom'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      $sheetdata{'cdom'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
Line 1676  sub updateclasssheet { Line 1680  sub updateclasssheet {
     my $cid   =$sheetdata->{'cid'};      my $cid   =$sheetdata->{'cid'};
     my $chome =$sheetdata->{'chome'};      my $chome =$sheetdata->{'chome'};
     #      #
       %Section = ();
   
       #
     # Read class list and row labels      # Read class list and row labels
     my %classlist;      my %classlist;
     my @tmp = &Apache::lonnet::dump('classlist',$cdom,$cnum);      my @tmp = &Apache::lonnet::dump('classlist',$cdom,$cnum);
Line 1699  sub updateclasssheet { Line 1706  sub updateclasssheet {
             my ($studentName,$studentDomain)=split(/\:/,$student);              my ($studentName,$studentDomain)=split(/\:/,$student);
             my $studentSection=&Apache::lonnet::usection($studentDomain,              my $studentSection=&Apache::lonnet::usection($studentDomain,
                                                          $studentName,$cid);                                                           $studentName,$cid);
               $Section{$studentName.':'.$studentDomain} = $studentSection;
 #            if ($studentSection==-1) {  #            if ($studentSection==-1) {
 #                unless ($ENV{'form.showcsv'}) {  #                unless ($ENV{'form.showcsv'}) {
 #                    $rowlabel='<font color=red>Data not available: '.  #                    $rowlabel='<font color=red>Data not available: '.
Removed from v.1.112  
changed lines
  Added in v.1.113

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