--- loncom/xml/lonplot.pm	2012/12/05 19:30:28	1.170
+++ loncom/xml/lonplot.pm	2014/05/27 12:31:03	1.174
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Dynamic plot
 #
-# $Id: lonplot.pm,v 1.170 2012/12/05 19:30:28 raeburn Exp $
+# $Id: lonplot.pm,v 1.174 2014/05/27 12:31:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,7 +105,7 @@ my %linetypes =			# For png use these li
     );
 my %ps_linetypes = 		# For ps the line types are different!
    (
-    solid          => 0,
+    solid          => 1,
     dashed         => 7
    );
 
@@ -1714,7 +1714,7 @@ sub generate_tics {
     my $result   = '';
 
 
-    if (defined %$spec) {
+    if ((ref($spec) eq 'HASH') && (keys(%{$spec}) > 0)) {
 
 	
 
@@ -1752,7 +1752,7 @@ sub generate_tics {
 	if ($spec->{'minorfreq'} != 0) {
 	    $result .= "set m$type $spec->{'minorfreq'}\n";
 	}
-    } else {
+    } elsif ($target eq 'tex' ) {
 	$result .= "set $type font " . '"Helvetica,22"' ."\n";
     }
     
@@ -1984,7 +1984,7 @@ sub write_gnuplot_file {
     #
     my $linestyle_index = 50;
     my $line_width   = '';
-    my $plots;
+    my $plots = '';
 
     # If arrows are needed there will be an arrow style for each as well:
     #
@@ -1993,8 +1993,11 @@ sub write_gnuplot_file {
 
     for (my $i = 0;$i<=$#curves;$i++) {
 	$curve = $curves[$i];
-	my $plot_command;
-	my $plot_type = ', ' if ($i > 0);
+	my $plot_command = '';
+	my $plot_type = '';
+	if ($i > 0) {
+	    $plot_type = ', ';
+	}
 	if ($target eq 'tex') {
 	    $curve->{'linewidth'} *= 2;
 	}