Log Message:
-----------
Fixed typo in previous update.
Modified Files:
--------------
pg/lib/Parser/BOP:
equality.pm
multiply.pm
power.pm
underscore.pm
Revision Data
-------------
Index: power.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/power.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -Llib/Parser/BOP/power.pm -Llib/Parser/BOP/power.pm -u -r1.10 -r1.11
--- 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}; $position = '' unless defind($position);
+ my $TeX; my $bop = $self->{def}; $position = '' unless defined($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.7
retrieving revision 1.8
diff -Llib/Parser/BOP/multiply.pm -Llib/Parser/BOP/multiply.pm -u -r1.7 -r1.8
--- 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; $position = '' unless defind($position);
+ my $TeX; my $bop = $self->{def}; my $cdot; $position = '' unless defined($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.8
retrieving revision 1.9
diff -Llib/Parser/BOP/underscore.pm -Llib/Parser/BOP/underscore.pm -u -r1.8 -r1.9
--- 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}; $position = '' unless defind($position);
+ my $TeX; my $bop = $self->{def}; $position = '' unless defined($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.6
retrieving revision 1.7
diff -Llib/Parser/BOP/equality.pm -Llib/Parser/BOP/equality.pm -u -r1.6 -r1.7
--- 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}; $position = '' unless defind($position);
+ my $string; my $bop = $self->{def}; $position = '' unless defined($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}; $position = '' unless defind($position);
+ my $TeX; my $bop = $self->{def}; $position = '' unless defined($position);
my $extraParens = $self->{equation}{context}->flag('showExtraParens');
my $addparens =
defined($precedence) &&
|
