version 1.158, 2012/07/04 11:09:22
|
version 1.159, 2012/07/09 11:11:47
|
Line 1653 sub write_gnuplot_file {
|
Line 1653 sub write_gnuplot_file {
|
$gnuplot_input .= "set encoding iso_8859_1\n"; # Get access to extended font. |
$gnuplot_input .= "set encoding iso_8859_1\n"; # Get access to extended font. |
|
|
} |
} |
|
$gnuplot_input .= "set encoding utf8\n"; |
# cartesian or polar plot? |
# cartesian or polar plot? |
if (lc($Apache::lonplot::plot{'plottype'}) eq 'polar') { |
if (lc($Apache::lonplot::plot{'plottype'}) eq 'polar') { |
$gnuplot_input .= 'set polar'.$/; |
$gnuplot_input .= 'set polar'.$/; |
Line 1929 sub write_gnuplot_file {
|
Line 1930 sub write_gnuplot_file {
|
} |
} |
# Write the output to a file. |
# Write the output to a file. |
open (my $fh,">$tmpdir$filename.data"); |
open (my $fh,">$tmpdir$filename.data"); |
binmode($fh, ":utf8"); |
# binmode($fh, ":utf8"); |
print $fh $gnuplot_input; |
print $fh $gnuplot_input; |
close($fh); |
close($fh); |
# That's all folks. |
# That's all folks. |