[LON-CAPA-cvs] cvs: loncom /interface/spreadsheet Spreadsheet.pm

[albertel]

albertel		Tue Feb 24 12:02:04 2004 EDT

  Modified files:              
    /loncom/interface/spreadsheet	Spreadsheet.pm 
  Log:
  - don't study expressions
  
  
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.34 loncom/interface/spreadsheet/Spreadsheet.pm:1.35
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.34	Thu Jan 15 16:20:07 2004
+++ loncom/interface/spreadsheet/Spreadsheet.pm	Tue Feb 24 12:02:04 2004
@@ -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 @@
 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 @@
 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 @@
         my @matches = ();
         my @values = ();
         $#matches = -1;
-        study $expression;
         while (my($parameter,$value) = each(%{$self->{'constants'}})) {
             next if ($parameter !~ /$expression/);
             push(@matches,$parameter);