Return to lonspreadsheet.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.100.4.1, 2002/09/27 18:43:10 | version 1.100.4.2, 2002/09/27 20:41:25 |
---|---|
Line 822 sub sett { | Line 822 sub sett { |
# Deal with the normal cells | # Deal with the normal cells |
foreach (keys(%f)) { | foreach (keys(%f)) { |
if (($f{$_}) && ($_!~/template\_/)) { | if (exists($f{$_}) && ($_!~/template\_/)) { |
my $matches=($_=~/^$pattern(\d+)/); | my $matches=($_=~/^$pattern(\d+)/); |
if (($matches) && ($1)) { | if (($matches) && ($1)) { |
unless ($f{$_}=~/^\!/) { | unless ($f{$_}=~/^\!/) { |