[BACK]Return to lonplot.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonplot.pm between versions 1.163 and 1.164

version 1.163, 2012/07/24 10:50:54 version 1.164, 2012/07/24 11:02:58
Line 463  my %tic_defaults = Line 463  my %tic_defaults =
  description => 'Number of minor tics per major tic mark',   description => 'Number of minor tics per major tic mark',
  edit_type   => 'entry',   edit_type   => 'entry',
  size        => '10'   size        => '10'
  },            }, 
        rotate => {
    default => 'off',
    test    => $onoff_test,
    description => 'Rotate tic label by 90 degrees if on',
    edit_type   => 'onoff'
        }
      );       );
   
 my @axis_edit_order = ('color','xmin','xmax','ymin','ymax','xformat', 'yformat', 'xzero', 'yzero');  my @axis_edit_order = ('color','xmin','xmax','ymin','ymax','xformat', 'yformat', 'xzero', 'yzero');
Line 1714  sub generate_tics { Line 1720  sub generate_tics {
   
  $result .= "set $type $spec->{'location'}  ";   $result .= "set $type $spec->{'location'}  ";
  $result .= ($spec->{'mirror'} eq 'on') ? 'mirror ' : 'nomirror ';   $result .= ($spec->{'mirror'} eq 'on') ? 'mirror ' : 'nomirror ';
    if ($spec->{'rotate'} eq 'on') {
       $result .= ' rotate ';
    }
  if (defined $spec->{'ticspecs'}) {   if (defined $spec->{'ticspecs'}) {
     $result .= '( ';      $result .= '( ';
     my @ticspecs;      my @ticspecs;
Line 2081  sub write_gnuplot_file { Line 2090  sub write_gnuplot_file {
  $linestyle_index++; # Each curve get a unique linestyle.   $linestyle_index++; # Each curve get a unique linestyle.
     }      }
     # Write the output to a file.      # Write the output to a file.
     # &Apache::lonnet::logthis($gnuplot_input); # uncomment to log the gnuplot input.  
       &Apache::lonnet::logthis($gnuplot_input); # uncomment to log the gnuplot input.
     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;
Removed from v.1.163  
changed lines
  Added in v.1.164

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>