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'})) { |