loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

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

-version 1.74, 2007/01/23 01:36:26
+version 1.76, 2007/01/23 02:14:18
  Line 675  sub MAXPARM {
      return $max;
  }
+ =pod
+ =item PARM(parametername)
+ Returns the value of the parameter matching the input parameter name.
+ parametername should be a string such as 'parameter_1_opendate'.
+ =cut
+ #-------------------------------------------------------
+ sub PARM {
+     return $c{$_[0]};
+ }
  #-------------------------------------------------------
  =pod
- Line 813  sub expandnamed {
+ Line 828  sub expandnamed {
  	foreach my $varname ( @vars ) {
              if ($varname=~/^(parameter|stores|timestamp)/) {
                  $formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;
-                $varname=~s/$var/\([\\w:\\- ]\+\)/g;
+ 		$varname=~s/$var/\([\\w:\\- ]\+\)/g;
- 	       foreach (keys(%{$self->{'constants'}})) {
+ 		foreach (keys(%{$self->{'constants'}})) {
- 		  if ($_=~/$varname/) {
+ 		    if ($_=~/$varname/) {
- 		      $values{$1}=1;
+ 			$values{$1}=1;
-                   }
+ 		    }
-                }
+ 		}
  	    }
          }
          if ($func eq 'EXPANDSUM') {