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: '. |