--- loncom/xml/lonplot.pm	2008/03/19 21:09:09	1.135
+++ loncom/xml/lonplot.pm	2008/03/24 21:53:41	1.136
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Dynamic plot
 #
-# $Id: lonplot.pm,v 1.135 2008/03/19 21:09:09 faziophi Exp $
+# $Id: lonplot.pm,v 1.136 2008/03/24 21:53:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1483,7 +1483,7 @@ sub write_gnuplot_file {
                 $gnuplot_input.= $linetypes{$curve->{'linetype'}};
                 $gnuplot_input.= ' linecolor rgb "';
                 # convert color from xaaaaaa to #aaaaaa
-                $curve->{'color'} =~ s/x/#/;
+                $curve->{'color'} =~ s/^x/#/;
                 $gnuplot_input.= $curve->{'color'}.'"';
             }
             $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};
@@ -1527,7 +1527,7 @@ sub write_gnuplot_file {
                 $gnuplot_input.= $linetypes{$curve->{'linetype'}};
                 $gnuplot_input.= ' linecolor rgb "';
                 # convert color from xaaaaaa to #aaaaaa
-                $curve->{'color'} =~ s/x/#/;
+                $curve->{'color'} =~ s/^x/#/;
                 $gnuplot_input.= $curve->{'color'}.'"';
             }
                 $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};