loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.17, 2003/07/29 05:22:56	version 1.17.2.1, 2003/09/23 01:52:57
Line 594 sub compute {	Line 594 sub compute {
while (my ($parm,$value) = each(%parameters)) {	while (my ($parm,$value) = each(%parameters)) {
last if ($self->blackout());	last if ($self->blackout());
next if ($parm !~ /^(parameter_.*)_problemstatus$/);	next if ($parm !~ /^(parameter_.*)_problemstatus$/);
next if ($parameters{$1.'_answerdate'}<time);	if ($parameters{$1.'_answerdate'} ne '' &&
	$parameters{$1.'_answerdate'} < time) {
	next;
	}
if (lc($value) eq 'no') {	if (lc($value) eq 'no') {
# We must blackout this sheet	# We must blackout this sheet
$self->blackout(1);	$self->blackout(1);