[WWcvs] pg: Fixed a problem with the signed number pattern that cause Real("4*3") to produce 4 rather than 12.

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

Log Message:
-----------
Fixed a problem with the signed number pattern that cause Real("4*3") to produce 4 rather than 12.

Modified Files:
--------------
    pg/macros:
        contextFraction.pl

Revision Data
-------------
Index: contextFraction.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/contextFraction.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -Lmacros/contextFraction.pl -Lmacros/contextFraction.pl -u -r1.11 -r1.12
--- macros/contextFraction.pl
+++ macros/contextFraction.pl
@@ -218,7 +218,7 @@
 sub Init {
   my $context = $main::context{Fraction} = Parser::Context->getCopy("Numeric");
   $context->{name} = "Fraction";
-  $context->{pattern}{signedNumber} .= '|-?\d+/\d+';
+  $context->{pattern}{signedNumber} = '(?:'.$context->{pattern}{signedNumber}.'|-?\d+/-?\d+)';
   $context->operators->set(
      "/"  => {class => "context::Fraction::BOP::divide"},
      "//" => {class => "context::Fraction::BOP::divide"},