[WWcvs] pg: This was accidentally removed in the last update.

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

Log Message:
-----------
This was accidentally removed in the last update.  OOPS!

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

Revision Data
-------------
Index: contextCurrency.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/contextCurrency.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -Lmacros/contextCurrency.pl -Lmacros/contextCurrency.pl -u -r1.7 -r1.8
--- macros/contextCurrency.pl
+++ macros/contextCurrency.pl
@@ -196,6 +196,11 @@
   my $associativity = $context->{currency}{associativity};
   my $string = ($symbol =~ m/[a-z]/i ? " $symbol " : $symbol);
   $context->{_currency}{symbol} = $symbol;
+  $context->operators->remove($symbol) if $context->operators->get($symbol);
+  $context->operators->add(
+    $symbol => {precedence => 10, associativity => $associativity, type => "unary", string => $symbol,
+                TeX => Currency::quoteTeX($symbol), class => 'Currency::UOP::currency'},
+  );
   $context->{parser}{Number} = "Currency::Number";
   $context->{value}{Currency} = "Currency::Currency";
   $context->flags->set(