loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2002/11/19 19:20:50	version 1.78, 2002/11/19 19:26:35
Line 1380 sub crsenv {	Line 1380 sub crsenv {
if ($name =~ /^spreadsheet_default_(classcalc\|	if ($name =~ /^spreadsheet_default_(classcalc\|
studentcalc\|	studentcalc\|
assesscalc)$/x) {	assesscalc)$/x) {
my $sheettype = $1;	my $sheettype = $1;
if ($sheettype eq 'classcalc') {	if ($sheettype eq 'classcalc') {
# no need to do anything since viewing the sheet will	# no need to do anything since viewing the sheet will
# cause it to be updated.	# cause it to be updated.
} elsif ($sheettype eq 'studentcalc') {	} elsif ($sheettype eq 'studentcalc') {
# expire all the student spreadsheets	# expire all the student spreadsheets
&Apache::lonnet::expirespread('','','studentcalc');	&Apache::lonnet::expirespread('','','studentcalc');
} else {	} else {
# expire all the default assessment spreadsheets	# expire all the default assessment spreadsheets
# ACK! No way to do this currently!!!!! Bummer!
}	}
}	}