--- loncom/xml/lonplot.pm	2012/07/04 11:06:57	1.157
+++ loncom/xml/lonplot.pm	2012/07/09 11:11:47	1.159
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Dynamic plot
 #
-# $Id: lonplot.pm,v 1.157 2012/07/04 11:06:57 foxr Exp $
+# $Id: lonplot.pm,v 1.159 2012/07/09 11:11:47 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1653,6 +1653,7 @@ sub write_gnuplot_file {
 	$gnuplot_input .= "set encoding iso_8859_1\n"; # Get access to extended font.
 
     }
+    $gnuplot_input .= "set encoding utf8\n";
     # cartesian or polar plot?
     if (lc($Apache::lonplot::plot{'plottype'}) eq 'polar') {
         $gnuplot_input .= 'set polar'.$/;
@@ -1904,17 +1905,6 @@ sub write_gnuplot_file {
 	    $plot_command.= ' '.$curve->{'limit'};
 	} 
 
-#elsif ($curve->{'linetype'} ne '' &&
-#		 $curve->{'linestyle'} eq 'lines') 
-#
-#
-#	    $plot_command.= ' linetype ';
-#	    $plot_command.= $linetypes{$curve->{'linetype'}};
-#	    $plot_command.= ' linecolor rgb "';
-#	    # convert color from xaaaaaa to #aaaaaa
-#	    $curve->{'color'} =~ s/^x/#/;
-#	    $plot_command.= $curve->{'color'}.'"';
-#	}
 
 	# Figure out the linestyle:
 
@@ -1940,7 +1930,7 @@ sub write_gnuplot_file {
     }
     # Write the output to a file.
     open (my $fh,">$tmpdir$filename.data");
-    binmode($fh, ":utf8");
+    # binmode($fh, ":utf8");
     print $fh $gnuplot_input;
     close($fh);
     # That's all folks.