loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

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

version 1.75, 2007/01/23 01:48:16	version 1.77, 2007/01/23 18:22:47
Line 828 sub expandnamed {	Line 828 sub expandnamed {
foreach my $varname ( @vars ) {	foreach my $varname ( @vars ) {
if ($varname=~/^(parameter\|stores\|timestamp)/) {	if ($varname=~/^(parameter\|stores\|timestamp)/) {
$formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;	$formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;
$varname=~s/$var/$[\\w:\\- ]\+$/g;	$varname=~s/$var/$[\\w:\\- ]\+$/g;
foreach (keys(%{$self->{'constants'}})) {	foreach (keys(%{$self->{'constants'}})) {
if ($_=~/$varname/) {	if ($_=~/$varname/) {
$values{$1}=1;	$values{$1}=1;
}	}
}	}
}	}
}	}
if ($func eq 'EXPANDSUM') {	if ($func eq 'EXPANDSUM') {
Line 1812 sub save {	Line 1812 sub save {
&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->is_default()) {	if ($self->{'type'} eq 'studentcalc') {
if ($self->{'type'} eq 'studentcalc') {	&Apache::lonnet::expirespread('','','studentcalc','');
&Apache::lonnet::expirespread('','','studentcalc','');	} elsif ($self->{'type'} eq 'assesscalc') {
} elsif ($self->{'type'} eq 'assesscalc') {	&Apache::lonnet::expirespread('','','assesscalc','');
&Apache::lonnet::expirespread('','','assesscalc','');	&Apache::lonnet::expirespread('','','studentcalc','');
&Apache::lonnet::expirespread('','','studentcalc','');
}
}	}
return $reply;	return $reply;
}	}