loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

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

version 1.71, 2006/09/03 00:45:51	version 1.73, 2007/01/23 01:29:15
Line 807 sub expandnamed {	Line 807 sub expandnamed {
if ($expression=~/^\&/) {	if ($expression=~/^\&/) {
my ($func,$var,$formula)=($expression=~/^\&(\w+)$([^\;]+)\;(.*)$/);	my ($func,$var,$formula)=($expression=~/^\&(\w+)$([^\;]+)\;(.*)$/);
my @vars=split(/\W+/,$formula);	my @vars=split(/\W+/,$formula);
	# make the list uniq
	@vars = keys(%{{ map { $_ => 1 } @vars }});
my %values=();	my %values=();
foreach my $varname ( @vars ) {	foreach my $varname ( @vars ) {
if ($varname=~/^(parameter\|stores\|timestamp)/) {	if ($varname=~/^(parameter\|stores\|timestamp)/) {
Line 1891 sub othersheets {	Line 1893 sub othersheets {
$self->{'cdom'}, $self->{'cnum'});	$self->{'cdom'}, $self->{'cnum'});
my ($tmp) = keys(%results);	my ($tmp) = keys(%results);
if (%results	if (%results
&& $tmp =~ /^(con_lost\|error\|no_such_host)/i ) {	&& $tmp !~ /^(con_lost\|error\|no_such_host)/i ) {
push(@alternatives, sort(keys(%results)));	push(@alternatives, sort(keys(%results)));
}	}
return @alternatives;	return @alternatives;