loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160.2.1, 2003/03/14 21:34:04	version 1.160.2.2, 2003/03/14 21:36:42
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 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'};
#	#