--- loncom/interface/spreadsheet/Spreadsheet.pm 2004/01/15 21:20:07 1.34 +++ loncom/interface/spreadsheet/Spreadsheet.pm 2004/02/24 17:02:04 1.35 @@ -1,5 +1,5 @@ # -# $Id: Spreadsheet.pm,v 1.34 2004/01/15 21:20:07 matthew Exp $ +# $Id: Spreadsheet.pm,v 1.35 2004/02/24 17:02:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -615,7 +615,6 @@ parametername should be a string such as sub MINPARM { my ($expression) = @_; my $min = undef; - study($expression); foreach $parameter (keys(%c)) { next if ($parameter !~ /$expression/); if ((! defined($min)) || ($min > $c{$parameter})) { @@ -640,7 +639,6 @@ parametername should be a string such as sub MAXPARM { my ($expression) = @_; my $max = undef; - study($expression); foreach $parameter (keys(%c)) { next if ($parameter !~ /$expression/); if ((! defined($min)) || ($max < $c{$parameter})) { @@ -846,7 +844,6 @@ sub expandnamed { my @matches = (); my @values = (); $#matches = -1; - study $expression; while (my($parameter,$value) = each(%{$self->{'constants'}})) { next if ($parameter !~ /$expression/); push(@matches,$parameter);