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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 11 Mar 2003 15:00:47 -0000


albertel		Tue Mar 11 10:00:47 2003 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  - silly typo
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.176 loncom/interface/lonspreadsheet.pm:1.177
--- loncom/interface/lonspreadsheet.pm:1.176	Mon Mar 10 15:21:45 2003
+++ loncom/interface/lonspreadsheet.pm	Tue Mar 11 10:00:47 2003
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.176 2003/03/10 20:21:45 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.177 2003/03/11 15:00:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1523,7 +1523,7 @@
 	foreach my $varname ( @vars ) {
             if ($varname=~/\D/) {
                $formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;
-               $varname=~s/$var/\([\\w:- ]\+\)/g;
+               $varname=~s/$var/\([\\w:\\- ]\+\)/g;
 	       foreach (keys(%{$self->{'constants'}})) {
 		  if ($_=~/$varname/) {
 		      $values{$1}=1;