[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)$/};