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.60, 2005/12/08 02:22:15
Line 697 sub get_values {	Line 697 sub get_values {
}	}
return \@values;	return \@values;
} else {	} else {
$num = '(\d+)';	$num = '([1-9]\d*)';
}	}
if (($la eq '') \|\| ($ua eq '')) {	if (($la eq '') \|\| ($ua eq '')) {
$alpha='[A-z]';	$alpha='[A-z]';
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'})) {