[WWcvs] pg: Fixed more undefined values

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Fixed more undefined values

Modified Files:
--------------
    pg/lib/Parser:
        BOP.pm
    pg/lib/Parser/BOP:
        divide.pm
        equality.pm
        multiply.pm
        power.pm
        underscore.pm

Revision Data
-------------
Index: BOP.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -Llib/Parser/BOP.pm -Llib/Parser/BOP.pm -u -r1.13 -r1.14
--- lib/Parser/BOP.pm
+++ lib/Parser/BOP.pm
@@ -272,7 +272,9 @@
 #
 sub string {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $string; my $bop = $self->{def}; $position = '' unless defined($position);
+  my $string; my $bop = $self->{def};
+  $position = '' unless defined($position);
+  $showparens = '' unless defined($showparens);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens = 
       defined($precedence) &&
@@ -294,7 +296,9 @@
 #
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def}; $position = '' unless defined($position);
+  my $TeX; my $bop = $self->{def};
+  $position = '' unless defined($position);
+  $showparens = '' unless defined($showparens);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens =
       defined($precedence) &&
Index: divide.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/divide.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/Parser/BOP/divide.pm -Llib/Parser/BOP/divide.pm -u -r1.6 -r1.7
--- lib/Parser/BOP/divide.pm
+++ lib/Parser/BOP/divide.pm
@@ -57,6 +57,7 @@
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
   my $TeX; my $bop = $self->{def};
+  $showparens = '' unless defined($showparens);
   my $addparens =
       defined($precedence) &&
       ($showparens eq 'all' || ($precedence > $bop->{precedence} && $showparens ne 'nofractions') ||
Index: power.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/power.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -Llib/Parser/BOP/power.pm -Llib/Parser/BOP/power.pm -u -r1.11 -r1.12
--- lib/Parser/BOP/power.pm
+++ lib/Parser/BOP/power.pm
@@ -64,7 +64,9 @@
 #
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def}; $position = '' unless defined($position);
+  my $TeX; my $bop = $self->{def};
+  $position = '' unless defined($position);
+  $showparens = '' unless defined($showparens);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens =
       defined($precedence) &&
Index: multiply.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/multiply.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -Llib/Parser/BOP/multiply.pm -Llib/Parser/BOP/multiply.pm -u -r1.8 -r1.9
--- lib/Parser/BOP/multiply.pm
+++ lib/Parser/BOP/multiply.pm
@@ -77,7 +77,9 @@
 
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def}; my $cdot; $position = '' unless defined($position);
+  my $TeX; my $bop = $self->{def}; my $cdot;
+  $position = '' unless defined($position);
+  $showparens = '' unless defined($showparens);
   my $mult = (defined($bop->{TeX}) ? $bop->{TeX} : $bop->{string});
   ($mult,$cdot) = @{$mult} if ref($mult) eq 'ARRAY';
   $cdot = '\cdot ' unless $cdot;
Index: underscore.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/underscore.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -Llib/Parser/BOP/underscore.pm -Llib/Parser/BOP/underscore.pm -u -r1.9 -r1.10
--- lib/Parser/BOP/underscore.pm
+++ lib/Parser/BOP/underscore.pm
@@ -74,7 +74,9 @@
 #
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def}; $position = '' unless defined($position);
+  my $TeX; my $bop = $self->{def};
+  $position = '' unless defined($position);
+  $showparens = '' unless defined($showparens);
   my $addparens =
       defined($precedence) &&
       ($showparens eq 'all' || $precedence > $bop->{precedence} ||
Index: equality.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/equality.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -Llib/Parser/BOP/equality.pm -Llib/Parser/BOP/equality.pm -u -r1.7 -r1.8
--- lib/Parser/BOP/equality.pm
+++ lib/Parser/BOP/equality.pm
@@ -55,7 +55,9 @@
 #
 sub string {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $string; my $bop = $self->{def}; $position = '' unless defined($position);
+  my $string; my $bop = $self->{def};
+  $position = '' unless defined($position);
+  $showparens = '' unless defined($showparens);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens = 
       defined($precedence) &&
@@ -73,7 +75,9 @@
 
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def}; $position = '' unless defined($position);
+  my $TeX; my $bop = $self->{def};
+  $position = '' unless defined($position);
+  $showparens = '' unless defined($showparens);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens =
       defined($precedence) &&