[LON-CAPA-cvs] cvs: loncom /xml lonplot.pm

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 15 Oct 2002 18:42:41 -0000


matthew		Tue Oct 15 14:42:41 2002 EDT

  Modified files:              
    /loncom/xml	lonplot.pm 
  Log:
  Colors can be specified with lower and upper case letters.
  
  
Index: loncom/xml/lonplot.pm
diff -u loncom/xml/lonplot.pm:1.78 loncom/xml/lonplot.pm:1.79
--- loncom/xml/lonplot.pm:1.78	Fri Oct 11 09:06:46 2002
+++ loncom/xml/lonplot.pm	Tue Oct 15 14:42:41 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Dynamic plot
 #
-# $Id: lonplot.pm,v 1.78 2002/10/11 13:06:46 matthew Exp $
+# $Id: lonplot.pm,v 1.79 2002/10/15 18:42:41 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -99,7 +99,7 @@
     sub {$_[0]=~s/\s+//g;$_[0]=~/^[+-]?\d*\.?\d*([eE][+-]\d+)?$/};
 my $pos_real_test  =
     sub {$_[0]=~s/\s+//g;$_[0]=~/^[+]?\d*\.?\d*([eE][+-]\d+)?$/};
-my $color_test     = sub {$_[0]=~s/\s+//g;$_[0]=~/^x[\da-f]{6}$/};
+my $color_test     = sub {$_[0]=~s/\s+//g;$_[0]=~/^x[\da-fA-F]{6}$/};
 my $onoff_test     = sub {$_[0]=~/^(on|off)$/};
 my $key_pos_test   = sub {$_[0]=~/^(top|bottom|right|left|outside|below| )+$/};
 my $sml_test       = sub {$_[0]=~/^(small|medium|large)$/};