--- loncom/interface/spreadsheet/assesscalc.pm 2005/05/17 18:04:40 1.49 +++ loncom/interface/spreadsheet/assesscalc.pm 2005/05/17 20:14:19 1.50 @@ -1,5 +1,5 @@ # -# $Id: assesscalc.pm,v 1.49 2005/05/17 18:04:40 albertel Exp $ +# $Id: assesscalc.pm,v 1.50 2005/05/17 20:14:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -789,6 +789,12 @@ sub compute { $value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/); $c{$parm} = $value; } + foreach my $cell (grep(/^A/,keys(%f))) { + # Clean out any bad formulas + next if (exists($c{$f{$cell}})); + next if ($cell eq 'A0'); + delete($f{$cell}); + } $self->formulas(\%f); $self->constants(\%c); $self->calcsheet();