loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

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

Diff for /loncom/interface/spreadsheet/Spreadsheet.pm between versions 1.50 and 1.51

version 1.50, 2005/05/15 04:55:33	version 1.51, 2005/05/17 20:17:03
Line 1615 sub load {	Line 1615 sub load {
my ($formulas);	my ($formulas);
if (exists($spreadsheets{$cachekey})) {	if (exists($spreadsheets{$cachekey})) {
$formulas = $spreadsheets{$cachekey}->{'formulas'};	$formulas = $spreadsheets{$cachekey}->{'formulas'};
} else {	$self->formulas($formulas);
	$self->{'row_source'}=$spreadsheets{$cachekey}->{'row_source'};
	$self->{'row_numbers'}=$spreadsheets{$cachekey}->{'row_numbers'};
	$self->{'maxrow'}=$spreadsheets{$cachekey}->{'maxrow'};
	} else {
# Not cached, need to read	# Not cached, need to read
if (! defined($filename)) {	if (! defined($filename)) {
$formulas = $self->load_system_default_sheet();	$formulas = $self->load_system_default_sheet();
Line 1651 sub load {	Line 1655 sub load {
$filename=$self->filename(); # filename may have changed	$filename=$self->filename(); # filename may have changed
$cachekey = join('_',($cnum,$cdom,$stype,$filename));	$cachekey = join('_',($cnum,$cdom,$stype,$filename));
%{$spreadsheets{$cachekey}->{'formulas'}} = %{$formulas};	%{$spreadsheets{$cachekey}->{'formulas'}} = %{$formulas};
	$self->formulas($formulas);
	$self->set_row_sources();
	$self->set_row_numbers();
	%{$spreadsheets{$cachekey}->{'row_source'}} = %{$self->{'row_source'}};
	%{$spreadsheets{$cachekey}->{'row_numbers'}} = %{$self->{'row_numbers'}};
	$spreadsheets{$cachekey}->{'maxrow'} = $self->{'maxrow'};
}	}
$self->formulas($formulas);
$self->set_row_sources();
$self->set_row_numbers();
}	}

sub set_row_sources {	sub set_row_sources {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.50
changed lines
	Added in v.1.51