loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.77, 2007/01/23 18:22:47	version 1.78, 2008/03/12 02:45:27
Line 210 sub make_default {	Line 210 sub make_default {
{'spreadsheet_default_'.$self->{'type'} => $self->filename()},	{'spreadsheet_default_'.$self->{'type'} => $self->filename()},
$self->{'cdom'},$self->{'cnum'});	$self->{'cdom'},$self->{'cnum'});
return $result if ($result ne 'ok');	return $result if ($result ne 'ok');
&Apache::lonnet::appenv('course.'.$self->{'cid'}.'.spreadsheet_default_'.	&Apache::lonnet::appenv({'course.'.$self->{'cid'}.'.spreadsheet_default_'.
$self->{'type'} => $self->filename());	$self->{'type'} => $self->filename()});
my $symb = $self->{'symb'};	my $symb = $self->{'symb'};
$symb = '' if (! defined($symb));	$symb = '' if (! defined($symb));
&Apache::lonnet::expirespread('','',$self->{'type'},$symb);	&Apache::lonnet::expirespread('','',$self->{'type'},$symb);
Line 1809 sub save {	Line 1809 sub save {
{'spreadsheet_default_'.$stype => $filename },	{'spreadsheet_default_'.$stype => $filename },
$cdom,$cnum);	$cdom,$cnum);
return $reply if ($reply ne 'ok');	return $reply if ($reply ne 'ok');
&Apache::lonnet::appenv('course.'.$self->{'cid'}.'.spreadsheet_default_'.	&Apache::lonnet::appenv({'course.'.$self->{'cid'}.'.spreadsheet_default_'.
$self->{'type'} => $self->filename());	$self->{'type'} => $self->filename()});
}	}
if ($self->{'type'} eq 'studentcalc') {	if ($self->{'type'} eq 'studentcalc') {
&Apache::lonnet::expirespread('','','studentcalc','');	&Apache::lonnet::expirespread('','','studentcalc','');