loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

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

version 1.81, 2009/12/16 13:00:53	version 1.82, 2013/08/09 17:58:15
Line 726 sub get_values {	Line 726 sub get_values {
my @num=($ld..$ud);	my @num=($ld..$ud);
foreach my $a (@alpha) {	foreach my $a (@alpha) {
foreach my $n (@num) {	foreach my $n (@num) {
if (exists($sheet_values{$a.$n})) {	if ((exists($sheet_values{$a.$n})) && ($sheet_values{$a.$n} ne '')) {
push(@values,$sheet_values{$a.$n});	push(@values,$sheet_values{$a.$n});
}	}
}	}
Line 742 sub get_values {	Line 742 sub get_values {
$alpha=qq/[$la-$ua]/;	$alpha=qq/[$la-$ua]/;
}	}
my $expression = '^'.$alpha.$num.'$';	my $expression = '^'.$alpha.$num.'$';
foreach (grep /$expression/,keys(%sheet_values)) {	foreach my $item (grep(/$expression/,keys(%sheet_values))) {
push(@values,$sheet_values{$_});	unless ($sheet_values{$item} eq '') {
	push(@values,$sheet_values{$item});
	}
}	}
return \@values;	return \@values;
}	}