[LON-CAPA-cvs] cvs: loncom /xml lonplot.pm

sakharuk lon-capa-cvs@mail.lon-capa.org
Thu, 25 Apr 2002 21:33:52 -0000


sakharuk		Thu Apr 25 17:33:52 2002 EDT

  Modified files:              
    /loncom/xml	lonplot.pm 
  Log:
  now prints gnuplot figs
  
  
Index: loncom/xml/lonplot.pm
diff -u loncom/xml/lonplot.pm:1.72 loncom/xml/lonplot.pm:1.73
--- loncom/xml/lonplot.pm:1.72	Thu Apr 25 16:39:50 2002
+++ loncom/xml/lonplot.pm	Thu Apr 25 17:33:52 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Dynamic plot
 #
-# $Id: lonplot.pm,v 1.72 2002/04/25 20:39:50 matthew Exp $
+# $Id: lonplot.pm,v 1.73 2002/04/25 21:33:52 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -499,7 +499,7 @@
 ENDIMAGE
         } elsif ($target eq 'tex') {
 	    &Apache::lonnet::ssi("/cgi-bin/plot.gif?file=$filename.data&output=eps");
-	    $result = '\\\\ \graphicspath{/home/httpd/perl/tmp/}\fbox{\includegraphics[width=9.0 cm]{'.&Apache::lonnet::unescape($filename).'.eps}} \\\\';
+	    $result = '\graphicspath{{/home/httpd/perl/tmp/}}\fbox{\includegraphics{'.&Apache::lonnet::unescape($filename).'.eps}}';
 	}
     } elsif ($target eq 'edit') {
 	$result.=&Apache::edit::tag_end($target,$token);
@@ -1051,7 +1051,7 @@
 		$curve->{'function'}.' title "'.
 		$curve->{'name'}.'" with '.
                 $curve->{'linestyle'};
-            $gnuplot_input.= ' linewidth 2 ' if ($target eq 'tex');
+            $gnuplot_input.= ' linewidth 4 ' if ($target eq 'tex');
             if (($curve->{'linestyle'} eq 'points')      ||
                 ($curve->{'linestyle'} eq 'linespoints') ||
                 ($curve->{'linestyle'} eq 'errorbars')   ||
@@ -1084,7 +1084,7 @@
 	    $gnuplot_input.= '"'.$datafilename.'" title "'.
 		$curve->{'name'}.'" with '.
 		$curve->{'linestyle'};
-            $gnuplot_input.= ' linewidth 2 ' if ($target eq 'tex');
+            $gnuplot_input.= ' linewidth 4 ' if ($target eq 'tex');
             if (($curve->{'linestyle'} eq 'points')      ||
                 ($curve->{'linestyle'} eq 'linespoints') ||
                 ($curve->{'linestyle'} eq 'errorbars')   ||