[WWcvs] pg: Fixed use of undefined value for $position in TeX and String

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

Log Message:
-----------
Fixed use of undefined value for $position in TeX and String methods.

Modified Files:
--------------
    pg/lib/Parser:
        BOP.pm
        UOP.pm
    pg/lib/Parser/BOP:
        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.12
retrieving revision 1.13
diff -Llib/Parser/BOP.pm -Llib/Parser/BOP.pm -u -r1.12 -r1.13
--- lib/Parser/BOP.pm
+++ lib/Parser/BOP.pm
@@ -272,7 +272,7 @@
 #
 sub string {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $string; my $bop = $self->{def};
+  my $string; my $bop = $self->{def}; $position = '' unless defined($position);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens = 
       defined($precedence) &&
@@ -294,7 +294,7 @@
 #
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def};
+  my $TeX; my $bop = $self->{def}; $position = '' unless defined($position);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens =
       defined($precedence) &&
Index: UOP.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/UOP.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -Llib/Parser/UOP.pm -Llib/Parser/UOP.pm -u -r1.13 -r1.14
--- lib/Parser/UOP.pm
+++ lib/Parser/UOP.pm
@@ -178,7 +178,7 @@
 #
 sub string {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $string; my $uop = $self->{def};
+  my $string; my $uop = $self->{def}; $position = '' unless defined($position);
   my $addparens = defined($precedence) &&
     ($precedence >= $uop->{precedence} || $position eq 'right' || $outerRight);
   if ($uop->{associativity} eq "right") {
@@ -195,7 +195,7 @@
 #
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $uop = $self->{def};
+  my $TeX; my $uop = $self->{def}; $position = '' unless defined($position);
   my $fracparens = ($uop->{nofractionparens}) ? "nofractions" : "";
   my $addparens = defined($precedence) &&
     ($precedence >= $uop->{precedence} || $position eq 'right' || $outerRight);
Index: power.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/power.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -Llib/Parser/BOP/power.pm -Llib/Parser/BOP/power.pm -u -r1.9 -r1.10
--- lib/Parser/BOP/power.pm
+++ lib/Parser/BOP/power.pm
@@ -64,7 +64,7 @@
 #
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def};
+  my $TeX; my $bop = $self->{def}; $position = '' unless defind($position);
   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.6
retrieving revision 1.7
diff -Llib/Parser/BOP/multiply.pm -Llib/Parser/BOP/multiply.pm -u -r1.6 -r1.7
--- lib/Parser/BOP/multiply.pm
+++ lib/Parser/BOP/multiply.pm
@@ -77,7 +77,7 @@
 
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def}; my $cdot;
+  my $TeX; my $bop = $self->{def}; my $cdot; $position = '' unless defind($position);
   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.7
retrieving revision 1.8
diff -Llib/Parser/BOP/underscore.pm -Llib/Parser/BOP/underscore.pm -u -r1.7 -r1.8
--- lib/Parser/BOP/underscore.pm
+++ lib/Parser/BOP/underscore.pm
@@ -74,7 +74,7 @@
 #
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def};
+  my $TeX; my $bop = $self->{def}; $position = '' unless defind($position);
   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.5
retrieving revision 1.6
diff -Llib/Parser/BOP/equality.pm -Llib/Parser/BOP/equality.pm -u -r1.5 -r1.6
--- lib/Parser/BOP/equality.pm
+++ lib/Parser/BOP/equality.pm
@@ -55,7 +55,7 @@
 #
 sub string {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $string; my $bop = $self->{def};
+  my $string; my $bop = $self->{def}; $position = '' unless defind($position);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens = 
       defined($precedence) &&
@@ -73,7 +73,7 @@
 
 sub TeX {
   my ($self,$precedence,$showparens,$position,$outerRight) = @_;
-  my $TeX; my $bop = $self->{def};
+  my $TeX; my $bop = $self->{def}; $position = '' unless defind($position);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
   my $addparens =
       defined($precedence) &&