loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

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

version 1.57, 2005/10/12 21:48:32	version 1.59, 2005/12/06 06:04:49
Line 1665 sub load {	Line 1665 sub load {

sub cache_sheet {	sub cache_sheet {
my $self = shift;	my $self = shift;
my $formulas=(@_);	my ($formulas) = @_;
my $stype = $self->{'type'};	my $stype = $self->{'type'};
my $cnum = $self->{'cnum'};	my $cnum = $self->{'cnum'};
my $cdom = $self->{'cdom'};	my $cdom = $self->{'cdom'};
Line 1673 sub cache_sheet {	Line 1673 sub cache_sheet {
my $filename = $self->filename();	my $filename = $self->filename();
my $cachekey = join('_',($cnum,$cdom,$stype,$filename));	my $cachekey = join('_',($cnum,$cdom,$stype,$filename));

if (ref($self->{'formulas'}) eq 'HASH') {	if (ref($formulas) eq 'HASH') {
%{$spreadsheets{$cachekey}->{'formulas'}} = %{$formulas};	%{$spreadsheets{$cachekey}->{'formulas'}} = %{$formulas};
}	}
if (ref($self->{'row_source'})) {	if (ref($self->{'row_source'})) {