[WWcvs] pg: Make inherit() properly not inherit the noinherit attributes from self

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

Log Message:
-----------
Make inherit() properly not inherit the noinherit attributes from self

Modified Files:
--------------
    pg/lib:
        Value.pm

Revision Data
-------------
Index: Value.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -Llib/Value.pm -Llib/Value.pm -u -r1.98 -r1.99
--- lib/Value.pm
+++ lib/Value.pm
@@ -602,9 +602,9 @@
 #
 sub inherit {
   my $self = shift;
-  my %copy = (map {%$_} @_);  # copy values from given objects
+  my %copy = (map {%$_} @_,$self);  # copy values from given objects
   foreach my $id ($self->noinherit) {delete $copy{$id}}
-  $self = bless {%copy,%$self}, ref($self);
+  $self = bless {%copy}, ref($self);
   return $self;
 }