loncom/interface/spreadsheet/studentcalc.pm - diff

Return to studentcalc.pm CVS log

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

version 1.8, 2003/05/29 13:39:38	version 1.9, 2003/05/29 18:31:27
Line 385 sub outsheet_recursive_excel {	Line 385 sub outsheet_recursive_excel {
my ($r) = @_;	my ($r) = @_;
}	}

sub set_row_sources {
my $self = shift;
while (my ($cell,$value) = each(%{$self->{'formulas'}})) {
next if ($cell !~ /^A(\d+)/ && $1 > 0);
my $row = $1;
(undef,$value) = split('__&&&__',$value);
$value = 'Default' if (! defined($value));
$self->{'row_source'}->{$row} = $value;
}
return;
}

sub compute {	sub compute {
my $self = shift;	my $self = shift;
$self->logthis('computing');	$self->logthis('computing');
Line 474 sub compute {	Line 462 sub compute {
$Exportrows{$student}->{'data'} = \@exportarray;	$Exportrows{$student}->{'data'} = \@exportarray;
# save export row	# save export row
$self->save_export_data();	$self->save_export_data();
	#
	$self->save() if ($self->need_to_save());
	return;
	}

	sub set_row_sources {
	my $self = shift;
	while (my ($cell,$value) = each(%{$self->{'formulas'}})) {
	next if ($cell !~ /^A(\d+)/ && $1 > 0);
	my $row = $1;
	(undef,$value) = split('__&&&__',$value);
	$value = 'Default' if (! defined($value));
	$self->{'row_source'}->{$row} = $value;
	}
return;	return;
}	}

Line 485 sub set_row_numbers {	Line 487 sub set_row_numbers {
next if ($row == 0);	next if ($row == 0);
my ($symb,undef) = split('__&&&__',$formula);	my ($symb,undef) = split('__&&&__',$formula);
$self->{'row_numbers'}->{$symb} = $row;	$self->{'row_numbers'}->{$symb} = $row;
	$self->{'maxrow'} = $1 if ($1 > $self->{'maxrow'});
}	}
}	}