From: dpvc v. a. <we...@ma...> - 2005-08-13 01:37:32
|
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) && |