[WWcvs] pg: Fixed a bug in the enable/disable routines that would cause them to

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

Log Message:
-----------
Fixed a bug in the enable/disable routines that would cause them to
always work on the current context rather than the one whose
enable/disable method was being called.

Modified Files:
--------------
    pg/lib/Parser/Context:
        Functions.pm

Revision Data
-------------
Index: Functions.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Context/Functions.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -Llib/Parser/Context/Functions.pm -Llib/Parser/Context/Functions.pm -u -r1.5 -r1.6
--- lib/Parser/Context/Functions.pm
+++ lib/Parser/Context/Functions.pm
@@ -55,9 +55,9 @@
 
 sub disable {Disable(@_)}
 sub Disable {
-  shift if ref($_[0]) ne ""; # pop off the $self reference
-  my @names = @_; my ($list,$name);
   my $context = Parser::Context->current;
+  if (ref($_[0]) ne "") {$context = (shift)->{context}}
+  my @names = @_; my ($list,$name);
   while ($name = shift(@names)) {
     $list = $Category{$name};
     $list = [$name] if !$list && $context->{functions}{$name};
@@ -70,9 +70,9 @@
 
 sub enable {Enable(@_)}
 sub Enable {
-  shift if ref($_[0]) ne ""; # pop off the $self reference
-  my @names = @_; my ($list,$name);
   my $context = Parser::Context->current;
+  if (ref($_[0]) ne "") {$context = (shift)->{context}}
+  my @names = @_; my ($list,$name);
   while ($name = shift(@names)) {
     $list = $Category{$name};
     $list = [$name] if !$list && $context->{functions}{$name};