From: dpvc v. a. <we...@ma...> - 2005-09-13 16:23:54
|
Log Message: ----------- Fixed problem with recognizing MINF in NUM_CMP. Modified Files: -------------- pg/macros: PGanswermacros.pl Revision Data ------------- Index: PGanswermacros.pl =================================================================== RCS file: /webwork/cvs/system/pg/macros/PGanswermacros.pl,v retrieving revision 1.36 retrieving revision 1.37 diff -Lmacros/PGanswermacros.pl -Lmacros/PGanswermacros.pl -u -r1.36 -r1.37 --- macros/PGanswermacros.pl +++ macros/PGanswermacros.pl @@ -1078,7 +1078,8 @@ # if ($num_params{strings}) { foreach my $string (@{$num_params{strings}}) { - my %tex = ($string =~ m/(-?)inf(inity)?/i)? (TeX => "$1\\infty"): (); + my %tex = ($string =~ m/^(-?)inf(inity)?$/i)? (TeX => "$1\\infty"): (); + %tex = (TeX => "-\\infty") if uc($string) eq "MINF"; $context->strings->add(uc($string) => {%tex}); } } |