diff options
| author | ivan <ivan> | 2011-04-18 23:49:54 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-04-18 23:49:54 +0000 |
| commit | 01f60974743197ac14e569c16c68a0c2ff3a5bd4 (patch) | |
| tree | 140ae6bfc2a89a2b635c81859a74eff5587ef71a /rt/lib/RT/Principal_Overlay.pm | |
| parent | b5c4237a34aef94976bc343c8d9e138664fc3984 (diff) | |
commiting rt 3.8.10 to HEAD
Diffstat (limited to 'rt/lib/RT/Principal_Overlay.pm')
| -rw-r--r-- | rt/lib/RT/Principal_Overlay.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/rt/lib/RT/Principal_Overlay.pm b/rt/lib/RT/Principal_Overlay.pm index f46525269..a8e8f3c42 100644 --- a/rt/lib/RT/Principal_Overlay.pm +++ b/rt/lib/RT/Principal_Overlay.pm @@ -220,9 +220,9 @@ sub RevokeRight { # }}} -# {{{ sub _CleanupInvalidDelegations +# {{{ sub CleanupInvalidDelegations -=head2 sub _CleanupInvalidDelegations { InsideTransaction => undef } +=head2 sub CleanupInvalidDelegations { InsideTransaction => undef } Revokes all ACE entries delegated by this principal which are inconsistent with this principal's current delegation rights. Does @@ -244,15 +244,19 @@ and logs an internal error if the deletion fails (should not happen). # This is currently just a stub for the methods of the same name in # RT::User and RT::Group. -sub _CleanupInvalidDelegations { +# backcompat for 3.8.8 and before +*_CleanupInvalidDelegations = \&CleanupInvalidDelegations; + +sub CleanupInvalidDelegations { my $self = shift; unless ( $self->Id ) { $RT::Logger->warning("Principal not loaded."); return (undef); } - return ($self->Object->_CleanupInvalidDelegations(@_)); + return ($self->Object->CleanupInvalidDelegations(@_)); } + # }}} # {{{ sub HasRight |