[WWcvs] pg: Use the Package() method to create the ordering object, so that ordering objects can be properly subclassed.

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

Log Message:
-----------
Use the Package() method to create the ordering object, so that
ordering objects can be properly subclassed.

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

Revision Data
-------------
Index: contextOrdering.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/contextOrdering.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -Lmacros/contextOrdering.pl -Lmacros/contextOrdering.pl -u -r1.1 -r1.2
--- macros/contextOrdering.pl
+++ macros/contextOrdering.pl
@@ -95,6 +95,7 @@
    '=' => {precedence => 1.7, associativity => 'left', type => 'bin', class => 'context::Ordering::BOP'},
   );
   $context->{value}{String} = "context::Ordering::Value::String";
+  $context->{value}{Ordering} = "context::Ordering::Value::Ordering";
   $context->strings->add('='=>{hidden=>1},'>'=>{hidden=>1});
   $context->{error}{msg}{"Variable '%s' is not defined in this context"} = "'%s' is not defined in this context";
   $context->{error}{msg}{"Unexpected character '%s'"} = "Can't use '%s' in this context";
@@ -183,7 +184,7 @@
 
 sub _eval {
   my $self = shift;
-  return context::Ordering::Value::Ordering->new($self->context,$self->{bop},@_);
+  return $self->Package("Ordering")->new($self->context,$self->{bop},@_);
 }
 
 sub string {