loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.44, 2005/05/15 02:40:26	version 1.47, 2005/05/15 03:45:42
Line 632 sub get_parameter_values {	Line 632 sub get_parameter_values {
$self->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) {	$self->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) {
my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($self->{'symb'});	my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($self->{'symb'});
foreach my $parmname (@Parameters) {	foreach my $parmname (@Parameters) {
my $value = $self->parmval($parmname,$self->{'name'},$self->{'domain'},$self->{'section'},$self->{'symb'},undef,$mapname,$id,$fn);	my $value = $self->parmval($parmname,$self->{'symb'},
	$self->{'name'},$self->{'domain'},
	$self->{'section'},undef,
	$mapname,$id,$fn);
$parameters{$parmname} =$value;	$parameters{$parmname} =$value;
}	}
untie(%parmhash);	untie(%parmhash);
Line 833 sub sett {	Line 836 sub sett {
while (my ($cell,$formula) = each(%{$self->{'formulas'}})) {	while (my ($cell,$formula) = each(%{$self->{'formulas'}})) {
next if ($cell =~ /template_/);	next if ($cell =~ /template_/);
if ($cell =~ /^A/ && $cell ne 'A0') {	if ($cell =~ /^A/ && $cell ne 'A0') {
if ($formula !~ /^\!/) {	if ($formula !~ /^\!/
	&& exists($self->{'constants'}->{$formula})
	&& $self->{'constants'}->{$formula} ne ''
	) {
$Apache::Spreadsheet::sheet_values{$cell}=	$Apache::Spreadsheet::sheet_values{$cell}=
eval($self->{'constants'}->{$formula});	eval($self->{'constants'}->{$formula});
}	}