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

Diff for /loncom/xml/lonplot.pm between versions 1.182 and 1.183

version 1.182, 2019/05/08 12:24:27 version 1.183, 2020/01/30 15:59:15
Line 529  my %axis_defaults = Line 529  my %axis_defaults =
         },          },
      xformat      => {       xformat      => {
          default     => 'on',           default     => 'on',
          test        => sub {$_[0]=~/^(on|off|\d+(f|F|e|E|P(|\s*\Q\0317\0200\E)))$/},           test        => sub {$_[0]=~/^(on|off|\d+(f|F|e|E|P(|\s*[Pp][Ii])))$/},
          description => 'X-axis number formatting',           description => 'X-axis number formatting',
          edit_type   => 'choice',           edit_type   => 'choice',
          choices     => ['on', 'off', '2e', '2f'],           choices     => ['on', 'off', '2e', '2f'],
          },           },
      yformat      => {       yformat      => {
          default     => 'on',           default     => 'on',
          test        => sub {$_[0]=~/^(on|off|\d+(f|F|e|E|P(|\s*\Q\0317\0200\E)))$/},           test        => sub {$_[0]=~/^(on|off|\d+(f|F|e|E|P(|\s*[Pp][Ii])))$/},
          description => 'Y-axis number formatting',           description => 'Y-axis number formatting',
          edit_type   => 'choice',           edit_type   => 'choice',
          choices     => ['on', 'off', '2e', '2f'],           choices     => ['on', 'off', '2e', '2f'],
Line 1956  sub write_gnuplot_file { Line 1956  sub write_gnuplot_file {
             if ($axis{'xformat'} eq 'off') {              if ($axis{'xformat'} eq 'off') {
                 $gnuplot_input .= "\"\"\n";                  $gnuplot_input .= "\"\"\n";
             } else {              } else {
                   if ($axis{'xformat'} =~ /^(\d+P\s*)[Pp][Ii]/) {
                       my $xprefix = $1;
                       if (($target eq 'web') || ($target eq 'tex')) {
                           $axis{'xformat'} = $xprefix.$lookup{'(pi|#960)'}{$target};
                       } else {
                           $axis{'xformat'} = $xprefix;
                       }
                   }
                 $gnuplot_input .= "\"\%.".$axis{'xformat'}."\"\n";                  $gnuplot_input .= "\"\%.".$axis{'xformat'}."\"\n";
             }              }
         }          }
Line 1964  sub write_gnuplot_file { Line 1972  sub write_gnuplot_file {
             if ($axis{'yformat'} eq 'off') {              if ($axis{'yformat'} eq 'off') {
                 $gnuplot_input .= "\"\"\n";                  $gnuplot_input .= "\"\"\n";
             } else {              } else {
                   if ($axis{'yformat'} =~ /^(\d+P\s*)[Pp][Ii]/) {
                       my $yprefix = $1;
                       if (($target eq 'web') || ($target eq 'tex')) {
                           $axis{'yformat'} = $yprefix.$lookup{'(pi|#960)'}{$target};
                       } else {
                           $axis{'yformat'} = $yprefix;
                       }
                   }
                 $gnuplot_input .= "\"\%.".$axis{'yformat'}."\"\n";                  $gnuplot_input .= "\"\%.".$axis{'yformat'}."\"\n";
             }              }
         }          }
Removed from v.1.182  
changed lines
  Added in v.1.183

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